
Mensile 25 giugno - 25 luglio 1984 ■ Anno 111 - n . 12 - Sped. Abb. Posi, Gr 111/70 -CR - Distir, MePe 














RHÓME PQULFNt 5/SrfMf 5 

concessionari autorizzati 


seguite le vostre guide: 


HFLimiANl 

/M Chi HM 7i 

«?|]9 FfiMA 

tri QbritI?I 61 Lì Btt 07 ZI 

CSS ine 

Vf.» tu t* Ajfpj. "i A 

w j* iwr.vzE 

Tri OMhtStìf 


OATAPLAN 5.4,1 

Vj 4 C-iVM Al AlIfH'KUCi ? 

HI» BQLZÀifO 
Tri 04 Ji f fili 

MIUA i r I 

Vm IJfrtrt, f ihfHi(ru I A 
itili Yf+ONA 
Tri WfrSMgK 

NUOVA TDCNQUAT A !>h 

llmltnArij (r A 

*lt& PAfiMA 

Tri Citi 


PfE.GCR.AMPV! A UTTÌCIO M I 
Cenv r r4Ao- ^ n 
jfflHj cnr.r.FRV'Cf fra 
Té-J OJiff/J-iii 

RAVECP-UKEifi 

fu i c;r jv' h i^Jir j 
#112 AHUAK) 

Tri ù£ ìiVAWlASNtf 

\ 

SDC-tftPAlMT s r ! 

\ 2 W« MIJAW 
SW QlMiWJ 


STUDIO SINTESI >*i 

Vi* AMItàiui fff 
mUAAA 

7 W ftSJ 22 JW 

TES TN 4 C ili. 

Vjj Cmvigjji. 92 

*JJ/* MfflH 
T«-J Mi « 4 J ^* 446 .^ 


memorie magnef/efre per computer: 





PAG. REMarks 

04 Domande / Risposte 

06 Nota bene 

09 Dimeniamo i tempi di lettura 

con il registratore 

12 Alta risoluzione 

16 Cambio valuta 

21 l’informatica a scuola: prime 

esperienze 

24 Painter 

29 Come usare correttamente i 

Joystick e le paddle 

36 Simon Magico 

41 80 colonne per il Vie 

45 Effetti sonori 


Vie 20 064 Sistemi General! 

* * * • 


• • • * 


* 


a 


• * 


i « « * 




* i 


* * 


* 


» 


49 le torri di Hanoi • 


54 Risoluzione di triangoli » * 


60 


Battaglia navale 


'"A. ' ’TTEfc f : jSBfc? ’ 


, ■_.v v .,ev Sfl 


□irottors rwponsebH»: Michele Di Pisa 
Redattore capo: Alessandro De Sìmone 
Segretaria di radanone: Maura Cecca roli 
Foto di copertina: Franco Vignati 

(mpagìnaiiono/illuttrazioni: Francesco Amatori,. Renato Caruso 
Diraziona, redazione; V.le Famsgosta, 75 - 20142 Milano - Tei, 02/846734S 
Pubblicità; Mirco Croce (coordinatore), Miche ! a Prandini, Giorgio Ruffoni, 
Marco Ravngli, Roberto Sghsrinzetti, Claudio Tidone, Villa Claudio 
Viale Famagoste, 75 * 20142 Milano - Tel. 02/8467348/9/40. 

Prezzo a abbonamenti; Prezzo per una copia L. 2.500 
Arretrati il doppio. Abbona mento annuo [10 fascicoli) L. 22.000 
Abbonamento annuo cumulativo alle riveste Computer e Commodore 
Computer Oub (tariffa riservata agli studenti) L 34,000. I versamenti 
vanno indirizzati a; Commodore Computer Club mediante assegno bancario, 
o utilizzando il c/c postale n. 31532203. 

Stampa; Lito 3 - Cologno Monzese - MI 
Registrazione; Tribunale dì Milano N. 370 del 2/10/1Q82 
Spel ir ahi post. Gr. ili. Pubblicità inferiore ai 7'Q% 


Computer Club ' 3 




Domande Risposte 

DOWVMDE KI2b021E 


□ A che cosa servono e come si utilizzano i 
quattro tasti tondone posti alla destra del 
Vie 20 o dei Commodore 64? 

• I quattro tasti si differenziano dagli 
altri esclusivamente per motivi estetici 
ed ergonomici Infatti, da un putito di 
vista strettamente tecnico, hanno la stes- 
sa funzione di un qualsiasi altro tasto 
della tastiera. In altre parole se, nel corso 
di un programma, si presenta la necessità 
dì una scelta (menu) tra diverse opzioni, 
risulta più comodo, specialmente per l'i- 
nesperto utilizzatore del programma 
stesso, premere uno dei quattro tasti fun- 
zione (fi, f2>. .fS) invece di uno da rin- 
tracciare sulla tastiera. 

Ancora sulla tastiera 

□ Utilizzando il mio Commodore 64, pre- 
mendo il tasto shift insieme con G si ottie- 
ne lo stesso carattere che premendo il 
tasto shift insieme con IL Devo ritenere 
difettoso il mio apparecchio? 

• Niente affatto. I due caratteri che ap- 
paiono sullo schermo sono diversi ma 
SEMBRANO eguali a causa di alcune 
imprecisioni tipiche del circuito integra- 
to che gestisce l'uscita vìdeo del Commo- 
dore 64. Ce ne possiamo render conto 
con la seguente esperienza- Battete: 
PRINTASC (” ”) 

Inserite Ira le virgolette, prima uno e 

- 

poi l’altro carattere grafico in oggetto, f 
diversi valori che vengono visualizzati di- 
mostrano che il computer riconosce la 
differenza tra i due simboli. Sul Vie 20, 
grazie ad un diverso sistema di gestione 
del video, la differenza tra ì due caratteri 
è evidente. 

□Commodore Computer Club non rie- 
sco mai a trovarla In edicola. Come fate a 
dire die la vostra è la Rivista più venduta 
in Italia se dal mio edicolante trovo sem- 
pre ì fascicoli dei vostri concorrenti e pra- 
ticamente mal i vostri? 


* La tiratura della nostra rivista aumenta 
ad ogni numero proprio ^perchè la do- 
manda supera sempre le nostre previsio- 
ni più rosee, tanto che abbiamo deciso di 
non stampare più le locandine (cioè i 
manifesti che avvisano ì lettori delTuscita 
di un nuovo numero). Una controprova 
è data dal fatto che non solo t nuovi 
fascicoli vengono venduti nel giro di un 
paio di giorni, ma anche dal fatto che i 
numeri arretrati si stanno esaurendo. 

Per quanto riguarda la seconda parte 
della domanda, tieni presente che se una 
testata rimane in edicola per tutto il me- 
se, vuol dire che non la compra nessuno. 
Meditate, geme, meditate,,. 

Quale stampante 

□ Mi piacerebbe utilizzare una stampan- 
te di buona qualità insieme coi mio Com- 
modore 64. Che cosa mi consigliate? 

* In genere siamo contrari a dare consìgli 
sugli acquisti da fare. Daremo comunque 
delle informazioni di massima che posso- 
no interessare tutti. 

a / Stampanti che non siano Commodore 
richiedono, in genere, un’interfaccia di 
collegamento da inserire sul retro del 
computer nell’alloggiamento riservato 
alla User Fort oppure nella porta di 
espansione. Questo fatto impedisce di 
usare contemporaneamente altre cartuc- 
ce a meno che non si acquisti a parte una 
scheda di espansione che consenta Futi- 
lizzo contemporaneo dì più connettori, 
b/ Utilizzando l'interfaccia IEEE48S 
non È possibile servirsi dei drive 1541. E’ 
necessario col legare altri drive che utiliz- 
zino la stessa in te rf acc ia , 
c i Alcune cartucce di utility e alcuni 
word processor non funzionano corretta- 
mente se è inserita l’interfaccia opziona- 
le. 

ài Le stampanti non originali Commodo- 
re non riproducono i caratteri semigrafi- 
ci. con la conseguenza che, nella stampa 


di listati di programmi, viene riprodotto, 
al loro posto, uno spazio... nullo, 
e/ In conclusione, prima di acquistare un 
qualsiasi prodotto, chiedete al rivendito- 
re di effettuare delle prove allo scopo di 
controllare che tutto funzioni a dovere. 
Al limite recatevi col vostro sistema e 
con i programmi che intendete far girare 
utilizzando il probabile acquisto. 

□ Un mio amico vuol vendermi una stam- 
pante Commodore 1515 per centomila li- 
re, E' un buon affare? 

* La stampante 1515 è fuori produzione 
da un po' di tempo. Essa utilizza un for- 
mato di carta molto particolare, pratica- 
mente introvabile. Anche il nastro in- 
chiostrato di ricambio non sì trova facil- 
mente. Guardati da certi amici,.. 

Sbagliando s’impara 

□ Un errore che mi capita di frequente, 
digitando programmi tratti da riviste, è 
OUT OF DATA ERROR, A che cosa è 
dovuto? 

* Gli errori che più comunemente vengo- 
no commessi sono i seguenti: 

a / nelle righe del programma Basic die 
contengono istruzioni del tipo DATA 
battete qualche valore in meno. Per 
esempio invece di battere: 

1000 DATA 10,20,30,40,50 
... battete,., 

1000 DATA 10,20,40,50 

b/ Subito dopo DATA battete una 

virgola. 

c / Battete due virgole dopo un valore, 
d / Battete una virgola alla fine del rigo, 
e/ Dimenticate di chiudere le virgolette 
quando è necessario. Esempi: 

1000 DATA, 10,20,30,40, 

1010 DATA “QUESTO E s UN”, 
“ESEMPIO” ... invece ... 

1000 DATA 10,20,30,40 

1010 DATA “QUESTO”, ”E T UN", 

“ESEMPIO” 
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Riservato 
agli ingegneri 

Il miglior software tecnico 
su elaboratori 
CBM - Commodore 
Ora anche disponibile su 
Commodore 64 

“S.S. - 8” 

L'ormai famoso programma per ì\ calcolo delle strutture in- 
telaiate piane in c.a., in zona sismica, che sviluppa e dise- 
gna arche le carpenterie delle armature, 

(Ultima versione Lugiio/1982 nostra esclusiva). 


“FONDAZIONI” 

Risolve tutti i problemi di fondazioni (trave elastica su suo- 
lo elastico) di strutture in c a. in zona sismica e non r risol- 
vendo f interò graticcio di fondazione e proponendo una 
carpenteria sofisticata ed ottimizzata. 


“MURI DI SOSTEGNO” 

A gravità, a mensola o a contrafforti, anche in zona sismi- 
ca, secondo il P.M. del 21/1/1981. 


“PENDÌI” 

Analizza la stabilità di un pendio o di un fronte di scavo sot- 
to diverse condizioni e la verifica relativa viene condotta in 
termini di tensioni effettive; la stima dei fattori di sicurezza 
viene effettuata secondo i metodi di FeJlenius, Bishop e 
Jambu, 


“COMPUTI METRICI” 

Analisi ed elenco prezzi Metodo veloce e completamente 
automatizzato per il computo e la stima dei lavori. 


“REVISIONE PREZZI” 

Secondo le disposizioni di legge vigenti. Praticità ed auto- 
mazione consentono di eseguire velocemente revisioni di 
prezzi anche per lunghi periodi. 


Richiedeteci documentazione e output dei pro- 
grammi di vostro interesse. Resterete sbalorditi 
dalla versatilità e dalla completezza del nostro 
software. 


SIRANGELO COMPUTER Srl 


Via Parisio, 25 - Cosenza 0984-75741 

NEW NEW NEW NEW NEW NEW NEW 
È pronto il nuovissimo programma 
“ORARIO SCOLASTICO” 




Precisazioni su programmi 
pubblicati 

A tenni lettori ci hanno comunicato le loro 
perplessità in merito ad alcuni listati fino- 
ra pubblicati. Poiché r argomento è di in- 
teresse generale f almeno a giudicare dalle 
numerose telefonate, precisiamo quanto 
segue: 

« X 

Fascicolo 9 

l/Strpente. Il listato è stato commi lato e 
non contiene errori di sorta, Se il secon- 
do quadro appare impreciso, cioè dova 
lo sicuramente alla errata trascrizione 
delle righe da 1544) a 1570 che hanno il 
compilo di disegnarlo. Una errata tra- 
scrizione delle righe da 660 a K60 e invece 
h causa di quadrati in cui sono imprigio- 
nate le bisce che non possono, di conse- 
guenza, essere mangiate dal serpente. 
2/Canestro. N listato è stalo controllato e 
non vi sono errori di sortii. 

3/ Vie Jtattk. Dei tre listati pubblicati è 
necessario trascrivere il terzo sul Vie ine- 
spanso. Volendo utilizzare i primi due è 
necessario studiare il contenuto dell'arti- 
colo Tecniche di overlay che illustra in 
dettaglio come caricare due programmi 
in cascata. 

4 /Vie agenda. Il programma può girare 
anche sul Commodore 64 ma è necessa- 
rio apportare piccole modifiche di carat- 
tere esclusiva mente «estetico». 

5 /Di visione in sillabe. L’autore in questo 
listato ha inserito, con le dovute modifi- 
che, tale utility; nel programma Word 
processor pubblicato sul N.ft e d ha assi- 
curato che, per un modico compenso, lo 
fornisce (su nastro) a chi lo desidera. 

Fascicolo 10 

l/Elihelp. 11 listato gira perfettamente 
così come è pubblicato. Ricordiamo che 
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è indispensabile rimuovere, se c’è, l’e- 
spansione di memoria. In genere qualsia- 
si giochino che gira su] Vie inespanso non 
può girare su! Vie dotato dii espansione 
sa I v o se d i ve rsa men te spe ei f ic ato. L e lo- 
cazioni di ■schermo e di colore, infatti, 
cambiano automatica men te a seconda 
del responsione inserita, 
a / In alcuni fascicoli, a causa di una stam- 
pa non perfetta, abbiamo notato che nel- 
la riga 1 IO risulta: 

„.T07679;P0KE1,.— 

invece di: 

...T076?9:POKEI 

E" ovvio che è necessario il carattere di 
doppio punto e non di punto c virgola, 
b/ Alcune righe (.120, 177, 301, ecc) de- 
vono essere scritte ricorrendo ad abbre- 
viazioni altrimenti il computer non le 
«prende». Per tale scopo si consiglia di 
consultare la tabella delle abbreviazioni 
riportate sul manuale Commodore op- 
pure la tabella pubblicata nclL’ifisérto 
speciale di Commodore Computer Club 
N.7 (purtroppo esaurito). 

Si ricorda che il numero massimo di 
caratteri accettabili è 88 (per il Vie 20), 
vale a dire 4 righe di schermo. 
2/Simulazione d’apprendimento. Il pro- 
gramma gira perfettamente cosi come è 
pubblicato. Si i scorda che non può girare 
ye il numero che il computer deve indovi- 
nare contiene cifre ripetute. In altre pa- 
role 253 è lecito mentre 255 non lo è. Il 
valore minimo da sottoporre al computer 
(Vie 21) o Commodore 64) è 124. L'in- 
congrua nza che si verifica cercando di 
«trattare» il valore 123 si può eliminare 
apportando la semplicissima modifica al- 
la riga 1030: 

1030 MAX “ 123: W=FRE(0) 

Alcuni errori che dovessero riscon- 
trarsi sono certamente dovuti ad errori di 
battitura da parte del lettore. Se il listato 
è stato battuto correttamente provate a 
sottoporgli il numero 821. La procedura 



* 


Il concorso è rivolto ai giovani e hobbisti, crea 
tori di software per i! gioco su home o personal 
computer, sia su disco che su cassetta. 

Per ricevere la scheda di partecipazione e le in- 
m formazioni relative al concorso, scrivere a: 
r MAGIC BUS - cas, post. 1 144 - 40100 Bologna, 
specificando il nome, cognome, indirizzo, nume- a 
ro telefonico, e il computer su cui si lavora. 

Affrettatevi! Avete tempo fino al 10 Agosto per 
presentare i vostri programmi. 


KV * 


•- 


•Vi 




Campiti*'* Chih 






PER VIC 20 E COMMODORE 64 


Adatto tutti i normali registratori a cassetta al 
tuo computer. Ti permette di duplicare i pro- 
grammi da un altro normale registratore. Con 
sole 34.000 lire I.V.A. e spedizione compresa 
potrai ricevere direttamente a casa tua questa 
indispensabile interfaccia, inviando il buono di 










correria dovrebbe essere In seguente: 
NUMERO (Più) (Meno) 

123 1 1 

456 0 0 

789 0 I 

137 iì 1 

293 0 1 

82 1 3 0 

3/FormuJa 1, II programma non contiene 
errori. Eventuali irregolarità de E traccia- 
to stradale sono dovute ad imprecisa tra- 
scrizione del listato. Si consiglia di ado- 
perare un righello per risalire alla quanti- 
tà di spazi bianchi presenti nelle linee che 
hanno il compito di disegnare le diverse 
piste. 

4 /Routine grafiche in I„M, Il programma 
gira porte rtamente così come è stato pub- 
blicato. Lo abbiamo controllato per 
scrupolo riga per riga, con l'originale che 
è quello che adoperiamo abitualmente. 
Il programma è infatti il più veloce e 
versatile programma per disegnare in at- 
ta risoluzione cot Commodore 64. Ne 
sono la riprova i numerosi listati che ci 
pervengono, tutti basali sul programma 
pubblicato. 

Eventuali anomalie sono certamente 
dovute ad errori di battitura da parte del 
lettore. 

Ricordiamo che è possibile telefonare 
in Redazione, nei pomeriggi di giovedì e 
venerdì dopo le ore 16, per avere infor- 
mazioni tecniche e delucidazioni su pro- 
grammi e articoli pubblicati. Ricordiamo 
che. in genere, gli autori degli stessi arti- 
coli, di cui pubblichiamo sempre gli indi- 
rizzi, sono persone che, il più delle volte, 
posseggono numerosissimi programmi. 
Se cercate listati interessanti, contattate- 
li! Commodore Computer Club è soprat- 
tutto, appunto, un^Club attraverso il 
quale ò possibile venire in contatto con 
gente molto, molto, molto interessante 
(proprio come te. . .) 

Alessandro De Si mone 
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Registratori a Cassette 



Dimezziamo i Tempi di Lettura 

Col Registratore 

on tutti sanno che il sistema di regi- 
strazione su cassette Commodore è tra i 
piu sofisticati esistenti tra i personal com- 
puter. Infatti il programma viene sempre 
registrato due volte* alio scopo di evitare 
malfunzionamenti in fase dì successiva ri- 
lettura del listato. 

p 

JL er sapere qualcosa di più sul vostro 
calcolatore, e soprattutto per sfruttare a 
proprio vantaggio tali informazioni, se- 
guite alla lettera i passi che descrìviamo 
nel presente articolo, 

* Scrivete un qualsiasi programma Basic, 
lungo almeno un paio di migliaia di byte e 
registratelo nel modo consueto, oppure 
procuratevi un nastro su cui è registrato 
un programma di tali caratteristiche. 

* Inseritelo in un qualunque rnangiacas- 
scltc come se fosse una musicassetta e... 
ascoltatelo. 

* All inizio è possibile udire un lungo sibi- 
lo - pulito*. Questo è il segnale che il com- 
puter ha inciso sul nastro allo scopo di 
sincronizzarsi nella successiva rilettura. 
Infatti, come è noto, non è possibile che 
tutti i registratori girino alla stessa idènti- 
ca velocità. Anche il calcolatore, d'altro 
canto, lavora ad una velocità determinata 
dal quarzo che è stato montato al suo 
interno: non tutti i quarzi sono rigorosa- 
mente eguali. Per fare in modo che qual- 
siasi calcolatore sia in grado di leggere 
qualsiasi nastro inciso da qualsiasi regi- 
strazione, viene inciso, all’inizio di ogni 
programma, un sibilo-segnale che ha il 
compito di far -capire» al computer a 
quale velocita è stato scritto e, di conse- 
guenza, di adattarsi ad esso per una lettu- 
ra priva di errori. Questo è il motivo per 
cui si consiglia di avvolgere i nastri in 
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modo tale che, davanti alta testina di regi- 
strazione» sia presente la parte magnetica 
dei nastro stesso e non già la «coda»» vate 
a dire la parte» in genere trasparente» non 
magnetizzabile. 

• Dopo il segnale iniziale (che dura circa 
15 secondi)» si ode un sibilo breve, di 
tonalità più bassa. Questo comunica al 
computer, in un modo che qui non descrì- 
viamo, il nome del file incontrato e la zona 
di memoria in cui è allocato il programma 
stesso. Le informazioni di inizio e fine 
memoria programma vengono subito tra- 
scrìtte nelle quattro locazioni di memoria 
d cui indirizzo è 829, 830» 831, 832. 

• Dopo una breve pausa sonora si odono 
una serie di impulsi che» se si presta una 
certa attenzione» si interrompono ad un 
certo punto. Questa parte rappresenta, 
tradotto in segnali acustici, U programma 
Basic registrato la prima volta. 

• Dopo la brevissima pausa, si ode nuova- 
mente il programma* registralo per la se- 
conda volta. 


Il motivo per cui il programma è regi- 
strato due volte» Fona dopo Faltra, è pre- 
sto detto. 


^^uando un programma viene regi- 
strato, non È possibile per ì* utilizzatore» 
sapere se Popcranone è stata compiuta 
correttamente. La probabilità che il na- 
stro sia di qualità mediocre oppure che le 
testine di registrazione siano sporche o 
altri motivi possono lasciare pesanti dub- 
bi. A tale scopo provvede I Operazione dì 
verifica (VERIFY) che confronta, byte 
per byte, i dati registrati su nastro con 
quelli presenti in memoria. Se Pope razio- 
ne fallisce viene emesso un messaggio di 
errore (VERIFY ERRORI, altrimenti 
compare il solito OR. 


1^ er essere ancora più sicuri ì progetti- 
sti della Commodore hanno realizzato un 
sistema che, come abbiamo già detto» re- 
gistra due volte la zona dì memoria inte- 
ressata dal programma. In pratica, 
quando ('operazione di verìfica viene 
portata a termine con successo, il pro- 
gramma è stato controllato quattro volte. 
L' affidabilità che ne deriva è di conse- 


guenza notevole. 

D trucco 

p 

A urtnoppo in fase di lettura, tale affi- 
dabilità viene pagata con un tempo mollo 
lungo della procedura. In effetti sarebbe 
sufficiente leggere solo la prima parte dd 
programma precedentemente registrato 
e verificato. Se la verifica ebbe successo 
(ai»., tempi della registrazione) vuol dire 
che i «due* programmi registrali I 1 uno di 
seguito all’altro sono perfettamente iden- 
tici. Se si potesse interrompere il carica- 
mento a metà si otterrebbe II dimezza- 
mento del tempo di lettura. Se però a 
metà lettura premiamo il tasto Run/Stop 
otteniamo nuJ l’altro che un BRAKE ER* 
ROR e un tentativo di LIST fornisce esito 
deludente. 

1^ er dimezzare il tempo di lettura di 
programmi piuttosto Luoghi, consigliamo 
dì attenersi rigidamente ai consigli 
seguenti. 

Registrazione 

* Azzerate U contagiri del registratóre. 

* Registrate il programma. 

* VERIFICATELO! ! ! 

« Scrivete sul contenitore della cassetta il 
numero dì giri riscontrato alla fine 
dell’operazione. 

Lettura 

* Digitate LOAD nel modo consueto, 

* Nel caso possediate il Commodore 64, 
non appena il motore del registratore si 
ferma e compare il messaggio FOUND 

azzerate il contagiri del registrato* 
re e premete il tastino Commodore- 

* Se invece possedete il Vie 20, dato che 
non vì è una pausa al momento dell’indì- 
viduazioite della coda» dovete essere ab- 
bastanza lesti netT azzerare II contagiri. 

* Quando il contagiri indicherà una cifra 
pari alla metà di quella annotata al mo- 
mento della registrazione (meglio qualche 
giro in più che in meno), fermate la proce- 
dura col tasto Kun/Stóp. Verrà visualiz- 


zato un BREAK ERROR. Non fatevi 
prendere dal panico. 

• Non chiedete il distato. Digitale invece 
quanto segue ALLA LETTERA, senza 
cioè ricorrere a cicli FGR. ..NEXTr 
POKE 43,PEEK(829) 
POKE44,PEEK(830> 
POKE45,PEEK{831) 
FOKB46,PfcEK<832) 

CLR: RESTORE 

e, ovviamente» il tasto Return alla fine di 
ogni comando. Se ora chiedete il listato, 
questo appari ra in tutto il suo splendore. 

he cosa è successo? Abbiamo detto 
che (in fase di registrazione su nastro) in 
testa ai programma vengono memorizzati 
quatt ro valori che rappresentano gli indi- 
rizzi di inizio e fine basic del programma 
residente in memoria ai momento dell'o- 
penoione. In fase di successiva rilettimi 
questi vengono letti e trasferiti immedia- 
tamente nelle locazioni da 829 a 832. Solo 
se l’operazione di lettura viene effettuata 
con successo» i contenuti di tali locazioni 
vengono «travasati « nei byte da 43 a 46 
che comunicano al sistema operativo la 
reale posizione del programma appena 
letto. 

R tcordiamo che l'operazione di lettura 
viene dal computer considerata efficace 
solo se i due programmi gemelli letti in 
successione sono riconosciuti identici a 
tutti gli effetti. 

C 

U i consiglia pertanto di ricorrere al si- 
stema suggerito solo nei casi seguenti; 

• Programmi realmente lunghi per cui 
vale La pena ricorrere al trucco indicato. 

• Programmi registrati su nastri di buona 
qualità e servendosi di registratori 
efficienti. 

« Programmi che siano stati verificati con 
successo subito dopo la registrazióne* 

Il programma pubblicato sul numero 
scorso (Esame nastri) può essere utile per 
individuare l’inizio e la fine dei program- 
mi Basic registrati- 

Alessandro De Simooe 
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HARDWARE & SC 

HOUSE 


HOTL1NE UPDATE GARANZIA 


Un*# leJsfoniga dedicata alla 
risgl uzkme dpi probi eml d a» clienti. 
Chiamando *1 Altiero telefonico 
risiala th* troverete sulla 
cartolina gàfaruia acclusa al 
programmi, ricoverale luna le 
iAfùrmtlioni chv V) fì«C8$Sft#nO. 


servi; lo di aggiornamento continuo 
del programmi acquistati. 

Ogni modifica ai programmi 
replicati dalla Leoni Informatica 
sari fornita agli utenti degli stessi. 


tutti i programmi Leoni informatica 
sono coperti da garanzia a Vita 
contro guasti di origina. 


COMMODORE 64: SOFTWARE 


Ptog ramni in configurazione base [*) IVA esclusa 


cod. 

QfiSCPJElGNE 


Préiio 

cod. 

DGSOmOUE 

Pretto 




PERSONALI 




W46 

Aflroor tomento Mutui 


60*000 

«049 A Totoplus 

100.006 

fff5V/T Totocalcio a sviluppo colonnare 

8Q.QB0 

00S2A Geatiane dei Cónti di casa 

HHP.0M 

f«56A Calcolo dell 1 eqoo canone 

60. 030 

0055/T Impari amo il BASIC 

100+990 

WÉiB/r Modello 74« quadro N 


60.003 

0059 A Modelle 740 quadro 0 

80. 000 

«66 

Conto corrente 


156.000 

0063 

Cento proci arimi BASIC 

80, «0 


Diary 64 (Commodore) 


100.000 

00-31 A 

Rubrica telefonica 

100 . «00 

«174 

corso di Dattilografia 

100. «00 







tfr+STICNI GEWÉlttAL] 



«47 

Anaqraf iohe 


250.«0 

0056 

Dichiarazione l+V+A* 

60*««e 

M6VT fido Clienti 


100*000 

0067 

Piano dei Conti (cli/for/qen) 

15O+000 

««63 

Appuntamenti 


150*000 

«071 

OEdini (cl i /fbr ) 

15U.000 

«90 

Mail ir*? List [r lordano alfabetico* cap* 

prov* ) 150* «00 

004 4 

Scheda 4800 me . (cl i/foe/rapp./az+ etc,) 

160 . 0«0 

«96 

Scheda 4000 tar. agganciata al Mailing 

250*000 

00 &7 

Super Mail (5 chiavi acceé&ó, £ iùrd ini + , } 

250,000 

«116 

Scadenziario effetti 

irte, bancarie, tratte, etc.) 2CO.000 

B12& 

Contabilita' fatture (Iva, ittpotì* etc+) 

250.009 

tizi 

Contabilita* Semplice 

f fratte AattAlon 1 1/etc . ) 400. 

3l&$ 

eoi le e fa e egre 

209.000 

«125 

Don tabi Lite' Generale 

(132 co lagne) 

annunciato 







GESTIONI SPECIFICHE 



«45 

Agenti a Rappresentar t i 

259*000 

«046 

Scader zia rio prorrL e polizze 

150.000 

«164 

Agenzie Innubi! iari 


25fl , 000 


Librerie e biblioteche 

120+000 

«146 

Studi Ottici 


100. «0 

0151 

Farmacie 

309+000 

«149 

Studi Dentistici 


300 * 000 

0152 

Studi Medici 

300*000 

BUI 

Hotel e Pensioni 


400.000 

0)32 

Parrucchieri 

400,000 

«131 

CcmniSti 


400*000 

«134 

Cl uba Nautici 

250 . 000 

«1» 

Officine 


400.000 

em 

Ristoranti 

400+000 

«170 

Tavola Calda 


400 . 333 

ei72 

E+avander ie 

490,000 

«175 

Condominio tte« 


annunciato 







GESTIONE TESTI 



019» 

He» wtit*-r 


70,000 

«191 

Word processor m 

198.000 

0192 

Bank Street wr iter 


70 r 000 

0319 

Easy script (Commodore) 

75*000 




TECNICI 




«116 

[jeqqe 173 (calcolo <S« 1 i isolamenti termici} 159,000 

«140 

Inqaqiwia civile I {alcoli strutt.} 

253.808 

«141 

Inqeqnetia Civile II 

(travi intelaiate) 

250,000 

0464 

Computa metrico 

3W + 000 

9409 

Diagnostica C64 


40*000 







MA6AÌZJHI 




0142 

Magazzino e fatturazione semplici 

206.000 

0143 

Magazzino Grossisti (2500 art+l 

360.980 

0144 

Magazzino e fatturazione agganciati 

400.000 

3156 

Magazzino [Attaglio (2500 art*» 

360.900 

01 4 B 

HauAZtinù alfa dett* 

(600 art.) 

250.000 

«159 

Magazzino Tag-lia/oal. (254# art*ì 

360.900 




LltJGiìAOGI 4 UTtUTIE . S 



fllé2/T Soffri Grafi* 

(WsatUS) 

&5,000 

0163 

Copia Disco Singolo 

50.080 

«64 

PetSpóed Csmpiler 

(Cmatìdora) 

30,000 

«165A Z«^ 

70+000 

0167 

Simon 'a Basic 

(Connodo re) 

35+000 

3 ISSA Turbo Tape 

54.00« 

0177 

P-ilot ( linguaggio) 


70+000 

«170 

Ultra Basic 

£25+90# 

0179 

Character Editor 


70.000 

B193/C Bafllc 4.0 

00.000 

«194 

iprite GAnerator 


70. «0 

0195 

AB.smfcder 

89. ««0 

«196 

5.A.K. 

(Treni:) 

150.003 

0137 

G-Paacal 

95.838 

fllSF 

Fiwth 64 

ponendo») 

95, 000 

0199 

Tool 64 (OMtfosdore} 

05.008 

«20? 

Master 64 

(Cofimodore ) 

145.000 

« 201 A Scheda CF/W (Ctvmodorel 

125,098 




GESTIONE DATI 




«157 

Cale Jftesult 

(Handic) 

195+000 

0161 

Data Base Manager (Italiano) 

120.000 

4295 

fcjper 

l Cannaio ce] 

275.000 

«06 

Magic OesJf (Cmmùdorel 

75.000 

«297 

Koala Joystick 


130.080 

«209 

Data Log, 

«29.033 



informato 
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Direzione desistenza tecnica: 20143 MILANO - vki Va Isolila, 21 
Negozkj vendite al pubblico: Milano - Coreo di Porta Romana, 123 


Computer Club 1 1 



C OMMODORE 64 





Alta Risoluzione 


on questo programma è possibile di- 
segnare in alta risoluzione sfruttando le 
routine* grafiche di D. Toma, pubblicate 
sul numero 10 di Commodore Computer 
Club. 

P er usare il listato dì queste pagine è 
necessario (of course!) digitarlo, salvarlo 
su un supporto magnetico, quindi carica- 
re le routine® grafiche dì CCC N*l0e dare 
il RUN. Quando il programma di B. To- 
ma si sarà fermato (potete anche fermar- 
lo quando inizia il demo con i tasti RUN/ 
STOP e RESTORE) date NEW e ricari- 
cate il programma che avete appena 
salvato. 

D opo il RUN apparire al centro dello 
schermo una croce che può essere sposta- 
ta a piacere con ì tasti di cursore. In que- 
sto modo si Ottiene una precisione di un 
pixel ma non una grande velocità di spo- 
stamento. Per ovviare a questo problema 
è possìbile spostare la croce piu veloce- 
mente, seppur con minore precisione, fa- 
cendo uso dei tasti di funzione F3, F5, 
F7 che spostano la croce rispettivamente 
in su, in giù, a sinistra, a destra. 

A vrete anche notato che in basso a 
sinistra è apparsa una «S* che ìndica la 
possibilità di disegnare. 

1 REM 

£ REM 

3 REM 

4 REM 

5 REM 

S REM 

7 REM 

8 REM 

9 REM 


p 

A. er tracciare una linea occorre posizio- 
nare la croce in un punto e premere i! 
tasto -A** Vedrete apparire un puntino 
al centro della croce che ìndica una estre- 
mità del segmento. Bisogna ora spostare 
la croce all'altra estremità del segmento e 
premere di nuovo Immediatameirte 
comparirà il segmento dal centro della 
crocetta al punto precedentemente trac- 
dato. Ovviamente, se volete tracciare un 
singolo punto dovrete premere per due 
volte il tasto -*A* senza spostare la 
crocetta* 

V 

T olendo cancellare una lìnea prece- 
dentemente tracciata occorre premere il 
tasto +t>. Immediatamente vedrete che 
la -S> in fondo allo schermo sparirà per 
indicare che non state scrivendo ma can- 
cellando. Per cancellare la linea occorre 
porsi ad un suo estremo (con precisione, 
naturalmente), premere *À - , portarsi al* 
r altro estremo e premere ancora «À», 
Per tornare a scrivere basta premere il 
tasto *S*. Tale operazione sarà confer- 
mata, come al solito, dalla presenza della 
«S» in fondo allo schermo. 

V tiglio cogliere ora r occasione di spie- 
garvi come usare gli spelte con le routine* 
grafiche dì D. Toma, Come spiegato nel 
suo articolo. Toma ha modificato la routi- 
ne che serve gli interni pts. In questo mo- 


do è come se la base su cui effettuare i 
calcoli per le posizioni delio schermo gra- 
fico, del suo colore e degli sprite fosse 
spostata da 0 a 49152. Infatti lo schermo 
inizia a 57344 e lo schermo testuale (che 
viene utilizzato per i colori della pagina 
grafica) inizia a 52224. 

Q uesto. come saprete* si estende per 
1000 bytes, quindi fino a 53224. Esatta- 
mente 16 bytes dopo iniziano i puntatori 
agli sprite che si estendono quindi da 
53240 a 53247. A 53248 iniziano i registri 
del Vie riguardanti la posizione degli spri- 
te* etc. Per sapere dove vanno messi i dati 
per gii sprites occorre moltiplicare il nu- 
mero che POKE-ate nel le locazioni da 
53240 a 53247 (uno per ogni sprHe) per 64 
e sommare il numero 49152* Tenete pre- 
sente che la memoria Uberei per memoriz- 
zare gli sprites va da 49869 (fine delle 
routine* grafiche) a 52223. 

U n'ultima raccomandazione; il punta- 
tore agli sprites va ri-POKE-ato nelle lo- 
cazioni 53240-53247 ogni volta dopo aver 
chiamato la subroutine che setta ì colori 
della pagina grafica* 

Andrea e Alberto Soriani 

Via Acacie, 3 

20095 Cusano Milanmo (MI ) 

Tel. 02/6195626 


****** * * * ********* * ************* 


* BY ANDREA & ALBERTO * 

* BORIAMI * 

* * 

* VIA ACACIE 3 CUSANO MILANI NO * 

* TEL - 0£/6 1 956E6 * 

* * 


******************************** 
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AGGUATO 


State cercando una stampante 
per il vostro micro: 

De 1 ve essere facile da usare (manuale in 
it alianti, selezione dei parametri da pannello e 
memorizzi! /ione permanente). 

Deve essere multif unzione e per me nervi di 
passare dalla qualità Jisting(lHt) eps.) alla qualità 
ìc itera per il trattamento testi. 

Deve essere facilmente interfaccia bile ed irn 
mediata rn ente compatibile con il vostro micro... 
qualunque esso sia. 

Deve essere Iti strumento per riprodurre in 
modo perfetto i vostri grafici, 

Deve essere molto affidabile, avere una 
probabilità di guasto suiti ogni IH mesi ed ev i 
seri- ciononostante supportata da una rete lì a 
/io naie di assistenza postvendita, j 

Deve far parte di una gamma completa f 
e compatibile (Rfl 132 colonne, grafica, colo* A 
tv. inserimento del foglio sìngolo manuale e 
automatico, caratteri scientifici e APL P ,.J. 

Deve sempre inserirsi nei vostri limili di 
spesa e soddisfare le vostre esigenze odierne e 
future. 

I >evc essere pensata, messa a punto t prodot 
la e commerciali zzata dal PII GRANDI! CO 
STRI! T r l OR E MONDIALI! INDI PENDENTE DI 
STAMPANTI. 


SERIE SPG 8000 “PAPER TIGER 


DATAE^RODUC i’S s.r I 
Vincenzi p Monti. 8 ■ 20123 MILANO * 


LA VOSTRA SCELTA E FATTA 







10 XX=0! YX=0!XIX=0l YLX®0 

1 1 P0KE248, 1 : PGKE2 , 1 ■ POKE25 1 , I !P0KE£52,6 

20 PL=49693 SDR=497£8:CL=49763SCD=49785«M0 = 498£1 
30 V =53248 : POKE53280 ,6 ! POKE650 , IE8 
40 POKE53240 ,3 1 * SP=5 1 136 

42 REM #** LESSE I DATI DELLO SPR1TE *** 

45 FORF =0TGS2 • REAOO ■ POKESP +F ,D : NEXT 
50 PQKEV+2 1,1 

52 REM *#** SETTA PAGINA GRAFICA **** 

55 SYSCO iSYSMOtSYSCL :POKE53240 ,31 SGOSUB 5000 
60 X® 1 50 s Y= 103 i POKEV+39 ,7 s P0KE2 , 1 
39 REM ***+ INGRESSO COMANDI **** 

100 GETn$ 

110 IFA*= THENY=Y“ 1 i REM IN SU PIANO 
115 IFA$= "■"THENY=Y~5:REM IN SU VELOCE 


120 IFA$= ,, M ,, TH£NY = Y+1 !REM IN GIU'PIANO 

125 IFA$="S*THENY=Y+5:REM IN GIU 1 VELOCE 

130 IFA$= ,, (i"THENX = X + l tREM DESTRA PIANO 

135 ] FA$= ,, ll“THENX=X+5 : REM DESTRA VELOCE 

140 IFAS= "B“THENK=X- 1 ! REM SINISTRA PIANO 

145 IFA$= "*I“THENX=X-5!REM SINISTRA VELOCE 

150 IFA*= "A -THEN 1000 ì REM SCRIVE 

155 I F A^= " S N THEW0KE2 , 1 : GOSU65000 • REM SCRIVE 

157 IFA$ = ”C ’’ THEM^OKES ,0 : GOSUB5000 '• REM CANCELLA 


1S0 IFX< =255THEN POKEV+ 16 ,0 

170 IFX>255THENP0KEV+ 16, 1 : POKEV , X-2S5 : POKEV + 1 ,Y:GOTO 100 
175 POKEV ,X ■ POKEV+ 1 , Y 
130 SOTO100 

399 REM **** TRACCIAMENTO LINEE **** 

1000 1FKK= 1 THENKK=0 ! X 1M=X- 12 : Y1X= 1 39 -Y+4 1 : SYSDR : GOTO 100 
1010 KK=1 :X%=X- 12! YX= 133 -Y+4 t S SYSPL! GOTO 100 


I 


1999 

REM j 

DATI DELLO SFR1TE 



8000 

DATA 

0,0,0 



£0 10 

DATA 

0,0,0 



£080 

DATA 

0,8,0 



ED30 

DATA 

0 ,B ,0 



£040 

DATA 

0,8,0 



£030 

DATA 

0 ,8,0 



E0S0 

DATA 

0,8,0 



£070 

DATA 

0,8,0 



£080 

DATA 

0,0,0 — 

£ 190 

DATA 0,0,0 

8090 

DATA 

127, £27, £54 t 

£208 

DATA 0,0,0 

£100 

DATA 

0,0,0 f 

4999 

REM **** SCRIVE LA *S’ **** 

£1 10 

DATA 

0,3,0 * 

5000 

XX=10i YX = 3: XIX- 15: Y1X=3: SYSDR 

£ 1 £0 

DATA 

0,8,0 T 

561© 

XX= 15 ’ YX=8 s X 1X= 15 : Y1X= 1S '• SYSDR 

8 130 

DATA 

0,8,0 t 

5020 

XX=10!YX*12SX1X=15:Y1X=I2:SYSDR 

£ 140 

DATA 

0,8,8 | 

5030 

XX= 10 : YX = 12 ! X 1%= 10!YlX=17s SYSDR 

2 158 

DATA 

0,8,0 * 

5040 

XX= 15: YX=17 :X1X=10: Y!X= 17 i SYSDR 

£160 

DATA 

0,8,0 " 

5050 

RETURN 

£ 170 

DATA 

©,S,0 ♦ 



£180 

DATA 

0,0,0 “^ ■*'-*■'* ** 

READY. 
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affidabilità. 

SPìRIT è la stampante 
già predisposta per i! 
collegamento con lutti i 
personal in commercio che 
consente di non 
rinunciare a tulle le più 
elevate presi azioni 
professionali. 

SPIRI l e disponibile in 
C’ELDIS con CONSEGNA 
IMMEDIATA. 

Ccldìs, Distributore 
Ufficiale per tutto il 
i erri torio nazionale dei 
prodotti Mannesmann 
T'ally, oltre la piccola 
SPIR1T consegna da stock 
tutti gii altri modelli di 
stampanti: MT ì HO, 

MT 440 fino alla MT 660. 


rapporto al costo de! 
computer u acquistare una 
stampante economica cl ic 
può creare problemi f 
di funzionamento, i 
Oggi con SPIRIT, WÈ 
della MANNESMANN ■ 
TALLYt è possibile H 
mettere d accordo H 
qualità, costi e' H i 


TALLY SPIRIT: 

BASTA AI DUBBI TRA 
PRESTAZIONI E 
PREZZO* 

Collegare una 
stampante ad un personal 
computer molto spesso fa 
sorgere dei problemi: o 
spendere troppo in 


Ccidi* (taluna S.pA 

200£T2 ClnlaHI» Balsamo (Milano I Tri lUttl l> ì .! I ti E 
Filiali: E '. muti Kutov.t Bnlngna - Roma 
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"LUMI .PAIJl* 


Cambio Valuta 


Il programma proporlo, che gira per* 
fattamente anche sul Vie senza alcuna 
espansione di memoria, capita a proposi- 
to dato che si avvicinano le vacanze e 
molti di voi si apprestano a partire per 
Testerò, 

ci depliant pubblicitari delle agenzie 
di viaggio, sono spesso riportate alcune 
cifre espresse in valuta straniera. Quanto 
viene a costare (in tire italiane) una certa 
escursione che viene indicata in dollari? E 
certi oggetti tipici del luogo conviene pa- 
garli in lire, dato die sono accettate* op- 
pure in moneta locale? Quale sarà la dif- 
ferenza se il dollaro o la sterlina subiran- 
no oscillazioni? Che valore devo chiedere 
alla mia banca per i traveller cheque? 

queste e ad altre domande risponde 
il programma proposto che* utilizzato a 
casa insieme con i propri familiari* può 
aiutare a stabilire la cifra necessaria oc- 
corrente per le vacanze. 

Come gira il programma 

on appettasi batte Run ed il Return, 
lo schermo viene cancellato, sul primo 
rigo in alto appare uq messaggio (in re- 
verse) ed una domanda: 

PERFINIRE 
NOME VALUTA? 

E ? 

necessario rispondere cor» nomi di 
quattro caratteri. Parole troppo Lunghe 
vengono troncale alla giusta misura (riga 
210). E* possibile inserire fino a 15 nomi 
diversi ma, in pratica, ne userete al mas- 
simo una decina. Supponiamo allora che 
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interessino quattro valute. Digiterete, 
pertanto DOLL STER MARC e LIRA, 
Per comunicare al computer che non in- 
tendete inserire altri nomi, battete il tasto 
di freccia a sinistra (primo tasto in alto a 
sinistra). 

-Al questo punto lo schermo sì cancella 
e appaiono, numerate in successione, le 
valute precedentemente digitate. Un mes- 
saggio in alto attende che voi battiate uno 
dei due tasti: «C* oppure < Q», 


CAMBIO / QUANTITÀ’ 

1 DOLL 

2 MARC 

3 STER 

4 LIRA 

P 

JL re mende «C* il messaggio diventa: 
QUALE VALUTA? Il programma chie- 
de cioè di quale moneta intendete digitare 
il valore. Se, ad esempio, il Dollaro Usa 
vale 1687.7, digiterete dapprima 1 ed in 
seguito (quando appare il messaggio VA- 
LORE?) il numero 1687.7, 

Noterete che al fianco del nome DOLL 
comparirà il valore impostato. Se avete 
sbagliato* niente paura: è possibile ripe- 
tere la procedura e impostare il valore 
corretto. Supponiamo che alla fine del 
lavoro la situazione sia ad esempio: 

1 DOLL 1687.7 

2 MARC 6 18.72 

3 STER 2337 

4 LIRA I 

E ? 

ovvio che il valore della lira sarà 
unitario dato che, in genere, i bollettini 
delle banche utilizzano la nostra moneta 
come base per il calcolo quotidiano delle 
valute. Per comunicare al calcolatore che 
abbiamo terminato il lavoro d» Imposta- 
zione, premiamo il tasto di freccia a sini- 
stra. Comparirà nuovamente il messag- 
gio CAMRK>/QUANTITA\ ma stavolta 
premeremo il tasto «Q* . Supponiamo che 
si desideri sapere la quantità di moneta 
estera corrispondente a MKH100 lire. Bat- 
teremo dapprima 4 (indice della moneta 
LIRA) e, al messaggio: 

4 LIRA Q? 

risponderemo, appunto* con UKKKM). 


L’UFFICIO 2000 

il 

COMMODORE SHOP di MILANO 

dal ns, LIBRO BLU per il Cf 64 ricava e propone i seguenti collaudati programmi 


BEST SELLERS * GESTIONE 

CONI ABI UT À dienti - fornitori - conto corrente (gestione generale multiuso) L 1 80.000 

CONTABILITÀ IVA SEMPLIFICATA gestione completa con stampa allegati e registri IVA L. 320,000 

GESTI ON E NEGOZI carico e scarico mag. - emissione scontrino o Fattura - Gestione cassa L. 280 000 

MAGAZZIN0 1 500 a 5000 ART carico - scarico - listini - situazione a valore c. m,p. L 220.000 

MAGAZZINO E FATTURAZIONE AGGANCIATI emissione e gestione Fatture L. 1 10 000 

■ à _ . _ _ m • _ _ ri ! JL 3 


aggiornamento magazzino e gestione dienti 

OFFICE AUTOMÀTICA TECNICO SCIENTIFICI UTILITY PARTICOLARI 

Gestione archivi !ng, civile Tutti i programmi Biblioteca - Medici 

Word processor (vari Tipi) Computi metrici esisterti ' Anagrafiche - Condomini 

Data Base (vari Tipi) Legge 373 DIDATTICA Professionisti ■ Officine 

Easy Cale - Caie flesult 5(3, 64 Apprendimento delia lin- Pubblicità, Vetrine e radio 

Magic desk e altri ancora Aratisi matematica gua italiana per scuola private e altri ancora 

elementare 


NOVITÀ 


VIDEO PACK - Come trasformare il CBM 64 in un computer a 80 colonne dedicato allelaborazione dei te- 
so COLONNE sti. Con una speciale interfaccia hardware il video diventa a 80 colonne e compresi nel pac- 

kage ci sono due potenti programmi di Word processor Spread Sheet. Una mascherina, da 
incollare sulla tastiera, illustra t uso dei comandi diretti dei programmi, evitando il continuo ri- 
corso di manuali. 

D.T.L, La versione 64 del famosissimo compilatore, semplice da usare per la serie Commodore 

COMPILÉR 8000, Non "maschera’ gli statments ma compila effettivamente anche le estensioni aumen- 
tando la velocità di esecuzione del programma. 

INTERFACCIA - Rende il 64 un computer a 80 colonne. Ricostruisce la pagina grafica dando un'immagine 

80 COLONNE perfetta, É utilizzabile anche lavorando a 40 colonne, per avere immagini meglio definite, 

SUPER - Il pantografo elettronico che permette di riprodurre sul video del 64 un disegno realizzato 

SKETCK su carta. Completo di software su cartridge che mette a disposizione moltissimi comandi per 

sviluppare la grafica su vari livelli di complessità, 

INFODISK - L ultimo database semplice e potente. Gestisce migliaia di dati ed ha la possibilità di funzio- 
nare su tutti i Floppy Disk Commodore. 

Il Vs. 64 vi é insufficiente? 

Realizziamo collegamenti con periferiche piu potenti o permutiamo con sistemi maggiori Commodore o IBM, 

Il Vs. 64 non é sfruttato? 

Possiamo aiutarvi consigliandovi i programmi più adatti o semplicemente ritirandolo. 

L’UFFICIO 2000 - Via Ripamonti 213 - Milano - Tel, 5696570 / 5696573 - Aperto anche di Sabato 

VENDITA - ASSISTENZA TECNICA - ACCESSORI 
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I m media! amente verranno visualizzati 
sullo schermo i diversi valori corrispon- 


battere il tasto di freccia a sinistra e, in 
seguito t il tasto «I» corrispondente alla 


giusto incoimi n amento. Le righe 350, 434 e 
484 non devono esser trascritte se si utiliz- 


denti alle valute. Da notare che da questo 
momento in poi qualsiasi valore numerico 
digitato sara < tradotto - tenendo conto 
che si tratta di lire, 

S e si desidera sapere La corrispondenza 
di un valore in dollari sarà sufficiente 


moneta americana. Se invece vogliamo 
modificare il valore corrispondente alle 
singole valute sarà necessario premere 
due volte il tasto della freccia e apportare 
tutte le modifiche che si desiderano* 

s. rPH . 


za LI Vie 20. In conclusione possiamo sug- 
gerire di apportare modifiche ai semplice 
ma versatile listato in modo da registrare 
su nastro le valute impostate o di inserire 
una subroutinc che consenta la stampa su 
carta. 

Alessandro IV Stmone 


100 REM *** VIC 20 (ANCHE INESPANSO!) *** 

110 REM *** E COMMOOQRE 64 *** 

120 REM *** *** 

130 REM *** PROGRAMMA PER CAMBIO VALUTA *** 

140 s 

150 H*=»g g" t REM 22 SPAZI 

160 0 IMA*v 15) r AC 15) : 1*= ' ■ i REM 10 SPAZI 

170 PR1NT " !F0RI = 1T015!A*( I )=B*:A( I > = 1 :NEHT 

180 PRINT *tja «* PER FINIRE " 

190 FOR 1=1 TO 15: INPUT u NOME VALUTA" J X* 

203 IF X35=*«-" THEN U=I-1S GOTO 230 

210 A*( I )=MID*( STR*( I > + ”B" +X*+'H’’+B*,2 ,6) 

220 NEXT : REM COMMODORE COMPUTER CLUB 

230 PR 1NT-L.JU" )PRlNTiPR INTiPR INT 

240 FOR 1=1 TO U: PRINT A*CI):NEXT 

230 PRINT H*f : INPUT”? g^HAMB IO/gOHUANT . ) ” ) X* 

260 IF X*="C“ THEN GOSUB 290 i GOTO 250 
270 IF X*="G" THEN GOSUB 330: GOTO 250 
280 GOTO 250 : REM ALESSANDRO DE S IMO NE 
290 PRINT H^J : INPUT "QUALE VALUTA 1 *;** 

300 X = VAL(X*): IF **="<-" THEN RETURN 
310 IF X< 1 OR X >U THEN 290 

320 PRINT H*; SPRINTAI X); : INPUT"B VALORE*?** 

330 IF LEN(X*)>7 THEN 320 

340 A< X)=VAL< X*> : IF A?X>=0 THEN 320 

350 PRINT: REM NON SCRIVERE QUESTA RIGA COL VIC 20 

360 PR INT: PR INT : PRINT: FOR 1=1 TO U 

370 PRINT A*(I)A(J>: NEXT : GOTO £90 

380 PRINT H*; : INPUT “VALUTA X*: IFX*< “0" THEN 380 

390 IF X*= n *-" THEN RETURN 

400 Q=VAL(X*?i IF GK 1 OR Q>U THEN 380 

410 PRINT H*A*( Q > é : INPUT"* Q . “ » X*: IFX*= “ *-"THEN 380 

420 X=VAL<X*):REM SOFTWARE 34 

430 PRINT: REM NON SCRIVERE QUESTA RIGA COL VIC 20 

440 PR INT *PR INTSPR INT : FQR 1 = 1 TO U 

450 PRINT TAB( 4 ) MIO*? STR*C A( !>)+!*, 1,8)? 

460 PRINT"g*MlD*< STR*( X*A< G)/A< !>)+!*, 2, 3) 

478 NEXT: PRlNT“g" : PR INT* PR INT : PR INT 

480 PRINT: REM NON SCRIVERE QUESTA RIGA COL VIC 20 

4S0 FOR 1 = 1 TO U s PRINT fì*( I >: NEXT: GOTO 410 

READY. 
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Vie 20 & Commodore 64 


Aiuto 


nella 


Programmazione 


uesto programma funziona 
con qualsiasi configurazione del 
Vie 20 e sul Commodore 64 (per 
quest'ultimo e però necessario 
cancellare il Poke in linea 63000 
e sostituirvi POKE 53280,254: 
POKE 53281,246}* 

Dopo aver lanciato il program- 
ma con un GOTO 63000 in mo- 
do diretto, scegliendo l'opzione 
C potremo cancellare tutte le 



lince tra due die comunichiamo 
al computer. 

P remendo invece A il program- 
ma scriverà automaticamente il 
numero di finca dopo che si è 
premuto Return. 

I , istruzione Sys 65487 nella li- 
nea 63130 prende i caratteri del- 
la tastiera e li stampa sullo scher- 
mo. 


i 00 REM*** AIUTO ALLA PROGRAMMAI IQi^SE 

H0 REM*** COMMODORE S4 £ 7IC ££ 

ISO REM*** MARCO MAVAL E3 I VIA MATTEOTTI, 31 

*■ ** 

* * * 

* * * 


t?G REM* * * 540 1 1 -RULLA -MASSA 

£ ift # 


1 C RE 

130 : 

BZ33B 

TCL . © 137 r '^©2627 ■C ORE 13 J 

44 4 


STOP 



£3030 

PCKE3687S,2“ !pRINT“LJff'IUMERfiZ IONE fi UT. 

àFR l NT 

"SPANCELLAZ IONE 

FINIRE 

■fi Il 


SC n i PR I NT 1 S 

£3010 

GETftS i lFfit< > " fi “ fiMQfi*< ? “C K riNDfi*< > "F ” THEN630 1 0 


63020 

FRI NT "iJ“ i lFfi*= "fi“THEM63 100 



63030 

IFA^ = "F ’ J THE MENO 



G304G 

I NFUT ■* Dr tAi I NPLiT 41 A 11 ; B I FR I NT "Li 



33030 

i Ffi •' 30RB< OORri >62333GRB >S29S3THEN633£3 



63060 

IP fi >ETHCN03CDS 



33073 

PR I NT ’CSJ" A 



S3GGC 

PRI HT*m= “ Rf IV* iB="B ‘ !GGTGc3O30 



63050 

P GK E 1 3 3 / 3 1 POKE 8 3 I ,18: PO KEGSE^ I 3 - PGXEC 

33 , 13: END 


63100 

I NF LT» INIZI O * ; ri ; i NP UT» ii ■£ REME NTO " ! 3 

: IFfK BCRS< 

lORfi >623S30RB 

■«"» 


>6ES83TH£N630£ 

flPf* i * Ti 

5 w I * 

I Fri >33333 THEH6C00G 



t ^ 

w ■* ■ — ’L* 

FR 



i r"Zt f — ■■‘i 
w i 

3 YSS 5*4 3 7 J FRI NT 



6316© 

PR I NT n 3A - " A + B ** "B " s C0TD63 ì iS 



33170 

POKE 1 SS r 3 < POKE65 1,-13» r 0KE63Z. , ì 3 ì F CKE3 

# fi « r— f. fc — 

i=*o ^ i ^ 


RRAnv. 
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Hit *1 *««*■** 

I» **H« 


M. 


NUOVO CORSO 


computer 


Forse nei prossimi anni, Torse solo- Tra qualche mese a addirittura già 
domani anche per te. se non vorrai restare indieiro, si porrò il proble- 
ma di imparare a dialogare con il computer. Che lare? Accademia, 
forte dei suor 35 anni di esperienza nel campo dell'insegnamento a 
distanza, ti propone la soluzione ol temale il suo nuovo corso di pro- 
grammazione BASIC su personal computer che rappresenta lo stru 
merlo piu perfezionato oggi reperibile per chi vuole imparare a gesti- 
re i informazione con l'elaborazione elettronica dei dstr 


per tutti 


li corso Accadem'a di programmazione 

BASIC su personal computer prende le 

mosse da il’ ABC deir informatica e, spie- 

gandone i concetti in modo accessi dì le a R"''"”' 

tutti, permette a chiunque, anche se nuovo a 

questo settore, di apprendere in breve tempo f "** 

le tecniche della programmazione, ■IT’ 

Basic: il linguaggio 
dei personal computers 

Imparare ad esprimersi in BASIC è indispensabile a 
chi vuole saper utilizzare correttamente il computer 
per dare una nuova dimensione al proprio lavoro, ai 
propri studi o all'amministrazione familiare, oppure 
per acquisire preziose conoscenze che potranno ri- 
velarsi indispensabili in un futuro molto prossimo. 
Con il corso Accademia il linguaggio BASIC in poche 
settimane non avrà più segreti per te, e il personal di- 


venterà il tuo collaboralore più fedele e 
qualificato 

Accademia ti propone un corso teorico» 
pratico di facile comprensione anche 
per chi si avvicina per la prima voita 
all’informatica, che ti mette In grado fin 
dal primo giorno di “lavorare 1 " sui tuo 
computer, imparerai prima a digitare e 
poi a programmare sui Commodore VIC 
20 o CBM 64 o stitl’Atarl 400 o flOOXL 
che, se lo desideri, potremo fornirti a 
condizioni particolarmente Interessanti, 
o in comode rate. 

Vuoi saperne di pìùì 
Spedisci subito il tagliando 

Altre 12 proposte di Accademia per il tuo futuro: 
Arredatore - Disegno e pillura - Slilista - Fotografo 
Grafico pubblicitario - Vetrinista - Tecnico pubbli- 


studio, lavoro, tempo libero 


corsi 


ACCADEMIA 

per imparare a casa 


se vuoi guadagnare tempo 

Delia alia nostra seg relega. dllstlH ftttTIA 
funziona nte ?4 ore su 24 , 06 / 6230 . J 41 

nome cognome, indirizzo e 
corso che li interessa 
Riceverai immerga lamenti 

Jé informazioni 



| ACCADEMIA- Via Diomede Mar vasi 12 /W 00163 Roma W- 8 J 1 JU | 

| Desolerò ricevere ntormaziooi sul vostro ccr&o dfc programmai K)oe BASIC 

I Cognome J J[_J |! i Jl , Nome i — 1 — , . — L_J — L_ | 

Val I ; I ; ; N. H — | 

■ Cftu. I 1 1 i I I I I I M I LJc.A. F, Pro* J Jsta J — \w 


Cognome 


I J J J J J J J JJ J J J JU I 


Crtta 


Per un coni allo più scucio telefono 


UJJJJJJJJ Ni li 


citarlo ■ Giornalista ■ Infortunisiica stradale - Tec^ 
niche di gestione arrendale - interprete - Lingue 
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L informatica a scuola: 

prime esperienze 


QUESTO artìcoli) è il primo di un ciclo 
teso ad informare i lettori diC.C.C sulle 
terminologie, sulle applicazioni e sulle 
prospettive de! Informatica: non per la 
semplice conoscenza del dato ma per 
metter lo in grado di costruirsi un efficace 
quadro di insiemi della disciplina. Negli 
articoli Tas petto didattico formativo avrà 
sempre un posto di riguardo, perchè è su 
questo fronte che si gioca una migliore e 
più rapida diffusione delFelaborazione. 

La scuola italiana è inadeguata a ri- 
spondere in termini di contenuto alle esi- 
genze di una società moderna, soprattut- 
to dal punto di vista della formazione 
professionale Tanl’è vero che all Gior- 
no» in un editoriale affermava che in al- 
cuni paesi tecnologicamente avanzati, la 
nostra istituzione scolastica viene defini- 
ta «la scuola degli asini» , per il ritardo in 
cui si trovano i nostri piani di studio di 
fronte al progresso de If informatica, 
Questa definizione è semplicistica e non 
ci trova d'accordo. E' vero: negli Usa 
oltre il 65% degli addetti nel terziario 
usano applicazioni delhriformatica e la 


tendenza è analoga negli altri paesi indu- 
striali. Anche l'Italia non sembra sottrar- 
si a questa logica di trasferimento di sem- 
pre maggior lavoro nel terziario avanza- 
to, Segnali da tutto il mondo indicano 
che le tecnologie informatiche guada- 
gnano spazio non soltanto nelle profes- 
sioni, ma anche nelle applicazioni didat- 
tiche, e i compatenti ministeri hanno va- 
rato piani organici di uso del computer 
nella scuola. In Inghilterra la BBC, re- 
mittente televisivo pubblica, gestisce un 
programma televisivo di alfabetizzazio- 
ne informatica, ottenendo altissimi indici 
di ascolto. Questa lista potrebbe conti- 
nuare, ma non contribuirebbe a far chia- 
rezza sul reale stato dell'Informatica nel- 
la nostra scuola. 

La scuola italiana è come un fiore di 
mille petali senza gambo. Questa imma- 
gine sintetizza la presenza di centinaia di 
esperienze non solo non coordinate da 
un piano, ma molto spesso sconosciute le 
un e alle altre, con un inevitabile spreco 
di energie. Un dato confortante: nono- 
stante la latitanza dello Stato la società 


civile sì muove e produce progresso. 

li Ministro della Pubblica Istruzione 
B od rato nel Marzo '82, in occasione del- 
la presentazione dcll'M20, disse che il 
bilancio del Ministero era impegnato al 
90% dagli stipendi e per il resiante 10% 
in spese generali, escludendo un piano di 
intervento per fare entrare il computer 
nella scuola. Il computer è però presente 
nelle scuole di ogni ordine e grado, come 
ha affermato il Direttore del Ministero 
Emanuele Caruso, e la politica è stata 
quella «di non scoraggiare le richieste 
per racquieto di elaboratori che perveni- 
vano alla Direzione». Così il computer è 
entrato nella scuola per iniziativa di pre- 
sidi ed insegnanti, spesso sotto la spinta 
dei venditori di hardware. Questo tipo di 
polìtica, sostenuta da una moda crescen- 
te alFintemo dell industria culturale, 
aveva come rischio un rifiuto dello stru- 
mento, dato che le macchine spesso sono 
state acquistate senza adeguati program- 
mi o aggiornamento dei docenti. 

La realtà, per fortuna, si sta evolvendo 
in maniera diversa. In quest'ultimo anno 
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si È assistilo a! fiorire di numerosissime 
iniziative dida eneamente valide. Il nu- 
cleo delta ricerca è costituito da alcuni 
grossi progetti gestiti da grandi società 
private o istituti di ricerca, al cui corona- 
mento contribuiscono centinaia di pro- 
getti minori varati da singole scuole, 
spesso con l’ausi Ilio di società del settore. 

Un'importante ed ambiziosa esperien- 
za sarà gestita, a partire dal settembre di 
quest’anno dalla ELEA, la società di for- 
mazione de irOlì vetti, ed interesserà gli 
insegnanti della Media Superiore. N pia- 
no concertato con la direzione generale 
per l’Istruzione Tecnica del Ministero 
delia Pubblica Istruzione, affronterà dai 
temi molto generali come le implicazioni 
del l'informatica in una società moderna, 
all'indagine si orico-cu 11 urale dcll'elabn- 
ra/ione e della trasmissione dati, fino al 
le vere e proprie applicazioni nel conte- 
sto scolastico 11 progetto si rivolge agii 
insegnanti di tutte le materie e si calcola 
che potrà interessare oltre 20 mila docen- 
ti all’anno. 

Di segno diverso, orientato alla speri- 
mentazione £ il progetto IRIS promosso 


dal Centro Europeo della Educazione di 
Frascati. Infatti si propone i'introduzio- 
ne delle scienze e delle tecnologie dell'In- 
formazione nei curricoli scolastici, attra- 
verso un programma di iniziative c di 
ricerche da svolgere in collaborazione 
con gli insegnami. Nel corso di tre anni 
interesserà un numero limitato di scuole 
campione sul territorio nazionale, le 
quali no n saranno solo medie superiori, 
ma anche scuole secondarie ed elemen- 
tari. Lo scopo principale di questa inizia- 
tiva non è quel hi di promuovere una for 
m azione diretta a tutte le scuole, ma 
piuttosto di; sperimentare una serie di 
metodologie, in modo da rendere dispo- 
nibili dei multati comparati a tutti gli 
operatori del settore. La sperimentazio- 
ne, già avviata sotto la guida di autorevo- 
li esperti italiani di didattica dell’infor- 
mazione e di rappresentanti dei Ministe- 
ro della Pubblica Istruzione, è molto ri- 
goroso e consentirà un effettivo control- 
lo L let risultati delle applicazioni del 
progetto. 

Accanto a iniziative di respiro nazio- 
nale se ne contano altre di portata locale. 


patrocinate da associazioni c spesso fi- 
nanziate da istituti bancari, o addirittura 
di interesse puntiforme, le quali per con- 
tenuti non sono meno significative. 

A questo proposito sono da segnalare 
due esperienze diverse fra di loro, per il 
contesto scolastico in cui si sono svolte, 
una condotta presso l’ITC «luigi E inali- 
dì» di Lodi e l'altra presso il Liceo Arti- 
stico delle Suore Orsoline di Milano. 

La prima aveva come tema una miglio- 
re professionalità per gii allievi, attraver- 
so l'apprendimento della programmazio- 
ne c l’uso pratico del computer nella real- 
tà del lavoro La seconda intendeva met- 
tere in luce le possibilità «creative» dd- 
l’daborazione, attraverso rapprendi- 
mento delle tecniche della 
com pule rgra fica. 

Dove finirà tutto questo ^ L presto per 
dirlo, ciò che ù certo che l'informatica à 
entrala nella scuola 

(. in™ VlafTtzzuJi 

Jclhi Direzione Didatiica 

CI AM Centro Informatica Applicata 

Milano 



LANGUAGE 

CENTER 


20144 MILANO 

Via Stromboli, 
Tele fono- 4W u l *fi 


Imparate una lingua in 80 ore. 
Usando l'istruzione programmata. 
MTT Language Center vi offre un corso 
intensivo personalizzato nell'orario 
e nel luogo da voi stabilito. 
Iscrizione continua. 


INGLESE 
FRANCESE 
TEDESCO 
SPAGNOLO 
ITALIANO 
SOLO PER 
STRANIERI 
IN 80 ORE 


Desidero ricevere ulteriori informazioni § 
sui corsi i 


Per i lettori di C.C.C. ulteriore sconto. 


« 

i 


Cognome 

Via 

Cap, — Città 

Tel 



J 


m 


latitato 
E. KANT «I 


MfL*NQ 


Via Br^setioW. 11 - T*lwiww> fdHW 


RAGAZZI 



SITI 

■ •■COMPUTER 8 


Milano - pi^z/a 3 Eustorqlo, 2 
Tel, IBI tl M OW 


CON IL COMPUTER 


HAI MAI PRA hSATO Al AVERE PER 
AMICO UtJ COMPUTER P 

PENSA QUANTE COSE POTRESTE FARE INSIEME 


FA RE T U TTi J aiO CHI CM E VUO L 
IMPARARE IL BASIC. LA LINGUA 


BEL FUTURO 


la SITI COMPUTER e L'ISTITUTO FA NT 

HANNO ISTITUITO PER TE UNA SCUOLA SENZA 
BANCHI MA CON TANTI COMPUTA RS £ PRO . 
PESSORt GIOVANI E SIMPATICI CHE TI INSE. 
ONERANNO PASSO A PASSO A SCOPRIRE 
QUESTO MERAVIGLIOSO MONOO. 

QUANDO AVRAI IMPARATO A CONOSCERCI 

POTRAI finalmente PORTARTI A CASA 
IL TUO NUOVO AMICO COMPUTER . 


PER ULTERIORI INFORMAZIONI E ISCRIZIONI fnyOL?JTI A 


- SITI COMPUTEPS 

P. rata S. Et/S TO PS IO SL-M ILANO - TEI , Q356006 

- ISTITUTO KANT 

Via BRUSCHETTI 11 -MILANO - TEL. 603 QGG 

Tl rlSPCTTIrtMO 


SOClZT*' ACL ARUPPO 
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Commodore 64 




Painter 


ainter è una versione BASIC solo per 
Coiti inodore C-64 del gioco da bar 
Q'Bert* La lunghezza del programma è 
di circa 5300 bytes* Il programma preve- 
de Vum del Joystick in Port 1, ma in 
fondo al listato vi sono dei Remar ks per 
rida bora re alcune linee permettendo così 
l'uso dei tasti (sposta in basso il Poin- 
ter), S" (alto), (destra), «Z» (sini- 
stra). 

ter (un simpatico extraterrestre tondo e 
di color blu) tutte le piastrelle che costi- 
tuiscono il campo di gioco, accedendo in 
questo modo a livelli superiori più 
difficoltosi. 

leu ni personaggi ostacolano le azioni 
del Painter. In ordine di pericolosità so- 
no: Tribolo il demonio (livello 1 e 2), Saet- 
ta (livelli 3 e 4), V Alieno (livelli 5 e 6), il 
Sosia Nero (Livelli 1 e 8). Ogni 8 livelli si 


ritorna alta cunfigur azione del V livello, 
ma a velocità maggiore. 

J^LlPimzìo del gioco selezionate il livello 
di inizio, a seconda della vostra bravura* 
Il gioco è di per se già molto difficoltoso, 
ma se volete provare il ■< bri vi do della ve- 
locità- in BASIC non dovete fare altro 
che mettere un REMark davanti al GO- 
Sl B 1090 alla linea 580; il gioco di venterà 
un po' meno sonoro* ma di certo più velo- 
ce; nel contempo tenere il Painler entro i 
Limiti del campo diventerà più 
problematico. 

tinteggio: ogni piastrella colorala vale 
60 punti; a fine livello al punteggio si ag- 
giunge un Bonus proporzionale al tempo 
impiegato (più tempo impiegate e meno 
punti prendete). Si guadagna una vita 
ogni 2 livelli* Air inizio potrebbe sembra- 
re generoso ma io non sono dì questo 
parere. 


remendo il pulsante rosso del Joystick 
potete saltare in modo casuale in un altro 
punto del campo. Ciò è utile nelle situa- 
zioni difficili. Un ultimo consìglio: muo- 
vetevi il più possibile con il Pointer o gli 
avversari vi saranno molto presto 
addosso!! 

IP S* Se all’inizio partite da un livello 
superiore al primo, il punteggio parte da 
un valore pari al numero del livello molti- 
plicato SfltH) punti. Ciò serve a comparare 
approssimativamente le varie prestazioni 
di gioco con partenze a livelli diversi. 

I caratteri ridefiniti si ottengono tutti 
premendo il tasto *shift» c una delle lette- 
re da À ad 1, I tasti speciali Commodore 
presentì nel programma codificano colori 
e spostamenti del cursore. D livello 32 è il 
più difficile: ì livelli seguenti restano alla 
massima velocità. 

Alberto Facchini 


100 REM *** "PRINTER" *** 

110 REM *** SOLO PER C-S4 *** 

1E0 REM *** DI ALBERTO FACCHINI *** 

130 REM *** VIA B, MARCELLO £4 *** 

140 REM *** BOLOGNA TEL * 05 1/479955 *** 

15© REM *** UBO DEI TASTI OPPURE *** 

155 REM *** JOYSTICK IN PORT 1 *** 

160 POKE53280,0:POKE53281 ,0 s PR INT"i29HBB" 
170 PRINT"3T; 


180 

PR I NT" 

0000 

•0 


m 

000 
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190 

PR I NT * 
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PR I NT w 
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CERCASI 


La redazione di Commodore Computer Club vuole potenziarsi e 
ricerca collaboratori part-time e insegnanti di discipline scientifi- 
che e tecniche preferìbilmente residenti nell’area di Milano 


Ai collaboratori che stiamo ricercando verrà richiesto di collabo- 
rare alle varie iniziative della casa editrice con articoli, libri, rac- 
colte dì programmi e l’italianizzazione di software, di cui abbia- 
mo i diritti d’autore, orientati alla didattica per le scuole medie e 
superiori. 

I prescelti, pertanto dovranno possedere un sistema completo 
dì Vie 20 oppure Commodore 64 e sapere programmare sia in 
basic che in linguaggio macchina. La conoscenza dell’inglese e 
di altri personal computer è un titolo preferenziale. 


Compensi 

Tutti i lavori svolti su incarico della redazione verranno sempre 
compensati in base ai miglior standard di mercato. 


Primo contatto 

Per incontrarci telefonate allo 02/8467348 chiedendo 
gnorina Piera 


si- 



260 FOR I =0TQ5 11SPGKEI+1P288 ,PEEK( I +53248 > : NEXT 
270 POKE 1 , PEEK< 1 >0R4 ! F0KE56334 ,PEEK< 5633*4 >0R 1 
280 POKE 53272 ,< PEEK< 53272 1AND240 )+ 12 

290 CR=0:FQRI=0TO71 :READAi POKE 12808+ I ,A:CR=CR+A:NEXT 

300 1FCR< >6573THENPR1 NT "ERRORE MEI PRIMI 72 DATA “ ! END 

310 MJ =53248: POKE 204 0,2 37 :ROKE2041 ,£38 

320 POKE2042 ,236 1POKE2043 ,233: POKE2044 ,240 

330 CR=0 t FORSP=0TO255 : READAft 

343 POKE 15104+SP ,AA: CR-CR+AAiNEXT 

350 IFCR< > 16689THENPRI NT "ERRORE KEGLI ULTIMI 256 DATA " ! END 
360 FORSP=0TO62 : POKE 1 53G0+SP ,PEEK< 15 104 +SP > ; NEXT 

370 P0KE532S7 ,8 : P0KE53288 ,6 : PQKE53290 ,2 : P0KE5323 1 ,0 : POKE53289 ,6 
380 1NPUT*U— j 1VELLQ7" !LEiLE=LE - 
330 P =LE *7000 : B = 20 000 : CO =0 i RB =5 i GO TO 1270 
400 GOTO 1 140 

410 XX= 154: YY=142!X=0! D0=106iO 1 =66 

420 D2 = 1 78 i D3 =66 : D4 =200 : D5 =28 : PX =58 : PY= 1 90 

430 POKEMJ +4 ,XX:POKEMJ+5 ,YYi POKEMJ +8 ,PX : POKEMJ +9 ,PY 

440 POKEMJ ,D4 ! POKEMJ + 1 ,D5 * POKEMJ +2 ,D0 

450 POKEMJ +3 ,D 1 : POKEMJ +6 ,02 ! POKEMJ +7 , D3 

468 POKE53278 ,0 : GOTG620 

470 IP PEEK1 56321 >=254THENYY=YY -24 !X=X- 120’ G0TQ530 
480 IP PEEK< 56321 > =253THENYY=YY+24 ! X=X + 1 20 ! GOTOS30 
490 IF PEEKt 56321 >=24?THENXX=XX+24!X=X+3i GOTOS30 
500 IF PEEKC 56321 ) =25 lT14ENXX=XX-24 ! X=X-3 : GOTO530 
510 IF PEEK< 5632 1 >=239 THEN 940 
520 GOTO 620 

530 POKE 138 ,0: POKEMJ +4 , XX! POKEMJ +5, YY 

540 IFXX>228ORXX<55ORYY>200ORYY< 70THENG0SUB 1040 : GOSUB 1070 : GOTO970 
550 IF< P£EK< 55832+X > AND !5 > =C2THEN 570 

560 CO=CO+ t : P0KE55832+X ,C2 ! P0KE55833 +X ,C2 ! P0KE55834 +X ,C2 

570 p-p +60 I PR INT" aa " TARI 10 >P 

530 GOSUB 1090 

590 IF C0=48 THEN 1240 

S00 IF ( PEEK< 53278 >AND4>< >4THEN620 

6 1 0 GOSUB 1 220 : GOSUB 1 070 ! GOTO970 

620 MI = 1NT< RND< 1 > *2 > + 1 ! CTX=CTX+ 1 

G30 B=B- 100! IFB<0THENB=0 

S43 IF CTX/VEO IKm CTX7VE > THEN 470 

650 ON Z GOTO750 ,730 ,690 ,660 

660 PX=PX+72! IFPX>228THENPY=PY-24 !PX=58 

670 IFPY<76THENPX=58IPY= 190 

630 POKEMJ +8, PX: POKEMJ +9, PY 

690 IF XX >00 THEN 00=00+24 ! GOTO 710 

700 D0=D0-24 

710 IF YY>D 1 THEN D I =0 1 +24 : GOTO 730 
720 D1=D 1 -24 

790 D3=D3+24! I FXX >D2THEND2=D2 +24 : GOTO750 
740 D2=D2-24 

750 05=05+24 JON MI GOTO760,770 
760 04=04+24: GOTO 730 
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770 

780 
790 
800 
S i 0 
880 
830 
830 
850 
860 
870 
880 
830 
S00 
910 
330 
930 
330 
350 
360 
978 
980 
330 
1000 
1010 
10E0 
1030 
1040 


D4 "D4 -84 

0 N Z 60X0860,830,738,790 

JFD0< 54 THEM30-D0+S4 : G0T0S 10 

IFD0 >££8THEND0=OB-£4 

1FD 1 >£00THEND 1 =□ 1 -84 :GOTO830 

1FDH7G TREND 1 =D 1 +E4 

I FD£< 54 THEND3-D8 + E4 : 60X0850 

IFD£ >220THEND£=D£-£4 

IFD3>£00THENO3=66 

IF04< 54 THEND4“D4+43 = GQT088© 


IF04 >ea8XHEND4^D4-48 
lFD5>£00ThtEND5=5£ 

1FQ0=D£ Fi NO Q1=D3THEN 08=08-48 
POKEMJ ,D4 i POKEMJ +£ , D0 ! POKEMJ +3 ,01 
POKEMJ +6 ,0£ i POKEMJ +7 , D3 : POKEMJ + 1 ,05 
IF < PEEKC 53£7S>fiND4X >4THEN47& 

GOXO 610 


IX - INX( RNDC 1 > +7 ; J I Y = INTC RNDC 1 > *5 ) s XX =58 +24 *IX:YY=70+£4*IY 
14^55460+1 80 *lY+3* IX 2 X=W-5583E WOSUB 1 100: POKEMJ +4 ,XX : POKEMJ +5 , YY 
GOTO 6£0 

RB=RB- 1 iPRlNrr ,, ttMMMa— "TftBC 35>RB 

IF RB = 0 XHEN FR 1 NT "h'Jsi" XfìB< 3 3 * JMBlMKI jflME OVER" s GOTO 1000 
FOR 1 = 1 TO 1 £00 s NEXT : GOTO 410 


POKEMJ +8 1 , 0 : PR 1 NT " 

POKE 138,0 

GET fi*: IF A$=" n THEN10E0 


CORE : 


" ;p 


GOTO 370 
F -£000 


R 


1050 YY = YY+1S :POKE MJ +5 , YY * I F YYC £ 1 8 THEN G08UB 1 080 S F =F -30 : GOTO 1050 
1060 P0KE54£78 ,0 £ RETURN 

1070 F =200 : t^R = 1 £9 ’ PD = ! 2 * T =£000 : GOTO 1 1 10 
1080 UP =33 : FiO = £7 : T = 50 * GOTO 1110 
1090 F = 3 760 : HA = 33 ' RD =0 - T-0 : GOTO 1 1 10 
! 100 F =830 ' kIP c 33 : RD = 1 £ : T = 1£0 ! GOTO 1 1 10 

111© P0KE5487S ,0SFF= 16*F : PGKE5429B , 1 5 i P0KE54£7£ , < FF -327S8 )RND 855 
1 120 P0KE54£73,FF/£56 SPORE 54278 , 0 : F0KE54877 , PO : PQKE54£7S , Ì4P 
1 130 FOR 1 =6T0T! NEXTI P0KE54E7S , 0 i RETURN 
1140 PR INT" LA SCOREMM "* TPBC £3 ? "3_EVEL »*;LE 

1150 PR INT: PR INTTPBC £9 ) "IL I VES 0 H 'R8 : PR INT * PR INTTRBC £3 > B SSDHRNGE TO " 
1160 PR INTSPR INTTPBC 31 ) "*| ~MCi — SM ME h 11 
1170 FRI NT^'gCSSH'' : FQRX = 1 T06 

1180 PRINTTRBC 4> “*1 “*| :REM TftSTI SHIFT-R,B,C 

1130 PR ÌNTTBBC 4 > *S - - _■ — - — - — — 11 l REM SHIFT*D,E,F 

i£00 PR1NTTRBC 4> M | hi hi hi hi F\É hi hi h " JNEXT : REM SH IFT-G ,H , I 
1£ 10 FQRE=0TQ2 :POKE557£7+E ,C£ :MEXT:GQT04 IO 

1££0 FORV-0TO30: POKE 53889 ,05 FORT= ITO 10 5NEXT i POKE 533 89 , ì : NEXT 
1830 POKE 53£83 ,6 * RETURN 

1 240 FORFP =£1X030 : POKE 1©64 +FD, 1 5 : PQKE5533S+FD , 1 = F ORE = 1TQ35 '« NEXT : NEXT 
1£5© PR INT H gM-TRBC £ 1 ) "B0NUS3 “ P LE F T$(S TR^< B ) , G > 

1 £60 CO=0iP=P+B*B -£0000 

1£70 C 1 = I NTC RNDC 1 >*3} +4 3 I FC 1 =60RC 1 -70RC 1 ~SORC 1 = 1P0RC 1 * 3 1 THEN 1 £70 
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|jS80 

1 290 
1300 
1313 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 

14 10 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1430 
1500 

15 10 
1520 
1530 
1540 
1550 
1560 
1570 
1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

167B 

1680 

1630 

1700 

1710 

1720 

1730 

1740 

1750 

1760 


C2=INT<RNDC 1 > * 1 1 ) +4 : IFC2=C 10RC2=G0RC2=90RC2= UTHEN 1280 
LE = LE + 1 :N=5 

IR LE 72= I NTC LE/2 >THENN=4 : RB=RB+ 1 

Q= 1NT< < LE- 1 )/8ì :2 = INT< < LE -0*84 1 >/2> ! VE=N-Q ! 1FV£< 2THENVE =2 

IFZ = 1 THENPOKEMJ +2 1 ,5 

1FZ=2THENP0KEMJ+21 , 13 

1F2 =3THENP0KEMJ +2 1 , 15 

IFZ =4THENP0KEMJ+21 ,31 

FORX=2T0 14 s GOSUB 1 100 : POKE53280 ,X 

P0KE5326! ,X*FORV=1TO80:NEXT;NEXT 

PRINTCHR$< 31 ) *a!»M”TftBC 12 > “LEVEL H“ ; LE ! POR G= 1 TO 1500 : NEXT 

P0KE53230 ,C 1 ! P0KE5328 1 ,C1 : GOTO 1 140 

DATA 0,0,0,7,63,7,0 ,0 

DATA 0,23,255,255,255,255,255,28 

DATA 0,0,128,240,254,240,128,0 

DATA 56,63,63,63,63,63,63,63 

DATA 0,0,227,252,255,252,255,252 

DATA 14 , 1 12 , 142,240 , 142 ,240 ,142 ,240 

DATA 7 ,0,0 ,0,0,0 ,0 ,0 

DATA 255,255,28,0,0,0,0,0 

DATA 240,126,0,0,0,0,0,0 

DATA 0,0,0,0,28,0,0, 127,0, 1 ,255, 192,3 

DATA247 ,224 ,6,28,48 ,4 ,8 ,16,13,201,216 

DATA 12,136,192,14,28,56, 15,255,248 

DATA 13,255,216,6,255, 184,6,127,112,3, 128 

DATA 224, 1 ,255,132,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0, 0,0, 0,0, 1,131, 0,1, 133, 0,1 ,255,0,3,255, 128,7,255, 132 
DATA 15 , 125,224,30,56,240,23, 146 ,112 
DATA 30,56,240,31 ,125,240,31 ,255,240 

DATA 31,255,240,27,255,176,13,255,36,6,254,132,3,1 ,128,1 ,255,0 
DATA 0,0,0, 0,0,0, 0 

DATA 0 ,0,0, 0,0 ,0,0,0 ,0,0, 126,0,0,255 
DATA 0, 1 ,255, 128,3,128,132,3,0,132 
DATA 1 1 ,0,203,3,255, 182 , 18,255 ,200 
DATA 53,135,220,41, 189 , 148 ,40 ,255 ,20 

DATA 0,66,0 ,0 ,0 ,0 ,0 , 123 ,0 ,0,0,0 ,0 , 123 ,0 , 1 ,66 ,128,2,164,64,0 

DATA 0,0,0,24,0,0, 12,0,0,6,0,0,3,0 

DATA 0,1, 128 ,0 ,0 , 182 ,0,3,224,0 ,1,128,0 

DATA 0, 132,0,0,36,0,0,48,0,0,24,0,0 

OATA 124 ,0,0 ,48,0,0,24 ,128,0,13,128,0,7,128 

DATA 0,3,128,0,15,128,0,0,0,0 

END 

REM LINEE DA SOSTITUIRE ALLE LINEE 
REM 470,480,490,500,510 PER L'USO DE! TASTI 
IF PEEKC lS7)=S0THENYY=YY-24ìX=X-120!GOTO530 
IF PEEKC 137 )=55THENYY=YY+24 :X=X+ 120SGOTO530 
IF PEEK< 197)=S3THENXX=XX+24:X=X43tGOTO530 
IF PEEK< 137)=12THENXX=XX-24!X=X-3: GOTO530 
IF PEEKt 1 87 )= 1 THEN 940 


READY. 
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Come Usare Correttamente 

i Joystick 
E lePaddle 


Che cosa sono i Joystick 

1 1 joystick non è altro die un gruppo dì 
cinque interruttori suddivisi in due grup- 
pi* U primo ne contiene quattro che pos- 
sono venire azionati mediante iì piega- 
mento di un’assiceila rigida. À causa dei- 
tà limitazione dei movimenti deità stessa 
assire Ita è possibile governare contempo- 
raneamente non più di due interruttori * 
Assimilando ad una bussola it simpatico 
accessorio, avremo che oltre ai quattro 
punti cardinali <N,S*E,0), è possibile po- 
sizionare l'assicella suite posizioni inter- 
medie, E' ovvio che, in quest'ultimo caso, 
sa renna interessali due interruttori alla 
volta. 

1 1 secondo gruppo è costituito da un solo 
interruttore che nei manuali e indicate» 
come FTRE { tasto del fuoco }. E 1 infatti 
adoperato, per lo più, per comandare 
azioni di sparo nei videogiochi. Riassu- 
mendo è possibile azionare contempora- 
neamente non più di tre interruttori , al- 
meno per come sono comunemente strut- 
turati i joystick in commercio, 

U na cosa è bene chiarire subito: questi 
a p parecchie Iti non fanno altro che modi- 
ficare alcune locazioni di memoria del 
computer. Pertanto SOLO SE il pro- 
gramma prevede Pesame dì tali locazioni 
è possibile ut i lizzarli ■ In caso contrario 
J 5 inserimento deli "accessorio nella porta 
corrispondente NON SORTISCE AL- 
CUN EFFETTO. 

In parole povere se, ad esempio, un vt- 
deogtoco è «nato» per essere governato 
soltanto da tastiera, non può in alcun mo’ 
do esser manovrato da joystick o paddle. 
E* ovvio che, se si effettuano Ec dovute 


modi lidie al programma, il controllo, 
può essere trasferito da f astierà al joy- 
stick (e viceversa). 

Che cosa sono le padri le 

ueste, vendute generalmente a cop- 
pia, sono comuni potenziometri, vale a 
dire resistenze elettriche variabili. Grazie 
ai connettore dì collegamento, i valori di 
tali resistenze sono letti da un circuito 
integrato del computer, digitalizzati (cioè 
tradotti in un numero intero compreso 
ira 0 e 255) e allocati in una ben definita 
locazione dì memoria. Anche in tal caso, a 
patto che il programma lo preveda, è pos- 
sibile, dal valore letto, risalire alta posi- 
zione dì potenziometro al momento della 
lettura. 

Differenze tra joystick e paddle 


D a quanto detto risulta, ovvio che gli 
accessori descritti vanno utilizzati ricor- 
rendo ad istruzioni del tipo IF...THEN, 
Esempio: 

100 IF PEEK(JOY) = ...THEN GOTO... 
11(1 IF PEEK(PADDLE) = ...THEN 
GOTO.. . 


T? 

JtL 


insamma necessario prevedere 
diramazioni net caso il valore di JOY o di 
P4DDLE sia stato modificato dall’ utiliz- 


zatore per mezzo dell -apparecchio. Men- 
tre però net caso del joystick è possibile 
soltanto controllare se un interruttore è 
aperto oppure chiuso, nel caso delle 
paddi e può (ruotare Velocemente la ma- 
nopola) raggiungere in breve tempo il va» 


lore minimo oppure massimo (0-255). 

c 

kJe, ad esempio, il gioco consiste net 
percorrere un labirinto, lo strumento più 
indicato è il joystick dato che è necessario 
«costringere* il giocatore a percorrerlo 
senza soluzioni di continuità. Viceversa 
nei giochi in cui è indispensabile raggiun- 
gere una certa posizione in breve tempo, 
il joystick presenta, proprio per come c 
ideato, dei lìmiti intollerabili. 

Presentiamo in questo articolo, come 
di consueto, alcuni listati utili non solo 
per comprendere la differenza esistente 
tra joystick e paddle, ma anche per rea- 
lizzare praticamente il controllo di un 
programma attraverso la porta dì con- 
trollo (Control Fort) presente sul Vie 20 
come sul Commodore 64. 

Gaso del Commodore A4 

CJ ucsto computer contiene, come è no- 
to, due porte di controllo numerate con I 
e 2. La prima è col legata con la locazione 
di memoria 56321, mentre la seconda con 
la 56320. E' pertanto sufficiente cui Legare 
il joystick in una delle porte e far girare il 
semplice mitro programma N.i. Questo 
non fa altro che visual izza re 11 valore ietto 
dì continuo nella locazione scelta. 

1 1 microprogramma 2, invece, consente 
altrettanto agevolmente di individuare i 
valori digitalizzati dalle paddle inserite 
nella porta 1. Si noti il diverso indirizzo 
delle locazioni di memoria. C’è da notare 
che ad ogni interruttore del joystick è 
associato un bit della locazione di memo- 
ria corrispondente. Inoltre possiamo ac- 
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Figura 1 


1 

Figura 2 

100 REM CSM 64 * PROVE SU 


100 REM CBM 64, PROVE SU 

110 REM CONTROL FORT 


110 REM CONTROL PORT, 

120 REM LETTURA JOYSTICK 


1 £0 REM LETTURA PADDLE - 

130 REM S632 1 = "PORTA * 1 


130 REM 54237 = PAOOLE X 

140 REM 5S320 = "PORTA" E 


140 REM 54298 = PADDLE Y 

150 f 1 


150 : 

1G0 A=563E1! e=5S3E0 


160 A=54£37i B^A+1 

170 PRINT PEEKCR) PEEK< B 3 j 


170 PRINT PEEKCR? PEEK( B ? 

130 GOTO 170 


180 GOTO 170 

180 s 


130 : 

£00 REM VA LORI STANDARD 


am REM VALORI STANDARD 

£10 REM PEEK <A?=255 


210 REM PEEK <A>=255 

E£0 REM PEEK <B)=I£7 


220 REM PEEK <B)=255 

READY* 


• READY, 



1 


corgerd che i valori fomiti dalla le f, ura 
delle Paddle cambiano con una certa faci- 
lità anche se queste non vengono minima- 
mente toccate. C'È da notare, inoltre, che 
la rotazione di uno dei due potenziometri 
influenza, purtroppo, la digitalizzazione 
dell’altro* 

1 1 programma N.3 consente di verificare 
quanto detto visualizzando i singoli hit dei 
byte interessati e il valore decimale delie 
Locazioni stesse, Dalla tabella N.l si può 
notare che alcuni bit sono interessati an- 
che dalla pressione di alcuni tasti. 

Il «difetto- dell' instabilità della lettura 
delle pad die è stato ovviato considerando 
(cfr* righe 320 330) solo variazioni che 
rientrino in una ben definita percentuale 
( +-5%). Con fopzione * P» , infatti, è pos- 
sibile notare sullo schermo, istante per 
istante, Pesatto contenuto delle locazioni 
riservate alle paddle e, contemporanea- 
mente, il valore memorizzato dal pro- 
gramma che rifiuta oscillazioni di valori 
che non superano un certo intervallo e, 
pertanto, ritenute indesiderate. 

Caso del Vie 20 

i 3 

pparentemente più complessa risulta 
la gestione della Control Pori nel caso del 


Vie 20. Le locazioni ad essa destinate* 
infatti, sono utilizzate dal sistema opera- 
tivo del computer anche con la gestione 
della tastiera. 

covale infatti, dopo aver inserito il 
joystick, a far girare il programma N*4. 
Noterete con sorpresa che vengono rile- 
vati gli spostamenti N,S,0, LI pulsante di 
fuoco O una comhinazione di questi. Se 

cercate invece di orientare l'assicella ad 

* 

Est non notate alcun cambiamento de! 
dato visualizzato. Non preoccupatevi: il 
vostro joystick non è difettoso. L'incon- 
veniente è dovuto al fatto che il hit che 
dovrebbe esser gestito dal joy, è in questo 
momento gestito dalla tastiera* In altre 
parole il circuito integralo implicalo nella 
vicenda deve servire con temporanea- 
mente due padroni (tastiera e control 
port) e, come è intuibile, assolve il compi- 
to in modo*., incompleto. 

C 

'è un modo* però, di servire*.* par- 
zialmente la tastiera e totalmente la Con- 
trol Puri. Digitate, cosi come è pubblica- 
to, il programma N*5 e battete il solito 
RUN* Potrete i mine diala melile notare 
che, ora, tutte le direzioni sono rilevate 
correttamente. Premere però il tasto 
Run/Stfip e tentate dì digitare 246. Per 
quanti sforzi facciate non riuscirete a far 
apparire i caratteri 2, 4*6,8,-, Clr/Home 


ed i loro shiftati. Ciò è dovuto al fatto che 
una fila di tasti non è più «visibile* dal 
circuito integrato che ha avuto il compito 
(grazie a POKE 37154,127} di privilegia- 
re la Control Pori. In particolare POKE 
37154,16 disabilita completamente la 
tastiera. 

In deli nìt iva quando non si desidera 
usare il joystick è necessario ripristinare 
le condizioni iniziali allo scopo di evitare 
malfunzionamenti. Se non avete spento il 
computer, digitate GOTO 333* Questo 
comando, se avete trascritto il program- 
ma 5 dalla rivista, dovreste essere in gra- 
do di impartirlo dato che è formato da 
tasti accettati dal Vìe. 

£1 registro dì direzione dei dati 

TV 

-L 1 el V tc 20 sono presenti due Locazioni 
di memoria (37139 e 37154 dette Registri 
di Direzione Dati A,tì -DDR-) che hanno 
il compito di indicare ad altrettante loca- 
zioni (37152 37137 dette Registri dei Dati 
A, B) se accettare dati in ingresso o in 
uscita* 

I registri DDR non sono altro, come già 
detto, che due locazioni di memoria for- 
mate ciascuna, come tutte le altre, da otto 
bit. Ciascuno di questi bit può essere prò* 
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! 00 
1 10 
1 20 
130 
14© 
150 
160 
170 
100 
190 
200 
E 10 
220 
230 
E40 
£50 
260 
270 
280 
236 
300 
3 10 
320 
330 
340 


PRINT " 
PRINT " 
FRI NT " 
FRI NT 11 

1F A$i=" 
A=5S3HÌ 


Figura 3 

SA ME CONTROL POR T PER COMMODORE 64 * 
SPUALE PORTA VUOI ESAMINARE? " 

CPADDLE IN PORTA i>" 

& ? « 

1F B$= NM THEN 140 
P" THEN £30 
l IF A$= H 2" THEN A = R-l 


REM PORTA 1 i 56320 
REM PORTA 2! 56321 
PRINT "^654338 10H" 

X = FEEK( A ) = POR 1=7 TO © STEP-I 

X I “X AND etlNF XI THENPRINT "MNGOTO 230 
FRI NT "0 w ; : REM A. DE SI MONE 

NEXT: P R 1 NT " "X w 
FRI NT u 3S" 5 GOTO 2©0 ■ 
fi = 542971 EJ=A + t: PRINT"^ 1 
X=PEEK< A ) - Y=FEEK( B > 

PRINT TAB< t I) "VALORI CONTROLLATI 11 

FRI NT "già VALORI REALI" 

PRINT " «M àf B* 

Xl=FEEK<tì>i Y1=PE£K<B> 

PRINT "a' 1 SPRINT PEEKC A } "H "PEEKC 6 ) “H " 
IFXI>X*1.05 OR XÌ<X*.93 THEN PRINT H a n X 1 11 II 


Figura 4 


100 REM VIC £0. PROVE SU 
110 REM CONTROL FORT 
120 REM LETTURA JOYSTICK 
130 REM 37137 = “PORTA* B 
140 REM 37152 = "PORTA* B 


A = 37 1 37 * B =37 152 

PR I NT PEEKC A ) PEEKC B > 

GOTO 170 


150 
160 
1 70 
ISO 
190 : 

£00 REM VALORI STANDARD 
£10 REM PEEK C A ) = 127 
226 REM PEEK C B ? =247 


READY, 


" ; s X=X 1 s SOTO300 


IFY1 >Y+ 1 - 05 
GOTO300 
READY ì 


OR Y l < Yi , 35 THEN PR INT'^TABC 4 ) Y1 


ir # 


: Y*YI 


grommato dall 1 utente, (n particolare se 
un bit di questi registri sarà posto a zero 
(reset tato ), indicherà al computer che il 
corrispondente bit del registro dati deve 
essere considerato come proveniente daJ 
cosiddetto mondo esterno. In caso con- 
trario {se, cioè settato o posto ai valore 
unitario) posizionerà in uscita il dato che, 

10 ricordiamo, è il singolo bit del registro 
dati corrispondente. Purtroppo, come 
accennato, i I>DR gestiscono anche lo ta- 
stiera e possono sorgere problemi ai fini 
di un uso corretto del computer, 

11 listato N.7 rappresenta l'analogo dd 
N.3 per il Commodore 64 (per il quale 
non vi sono le difficoltà appena viste). 
Premendo il Listo Shift il programma sal- 
ta alla riga 470 che ripristina te condizioni 
iniziali. 

Il programma N.6 non è altro che un 
microprogranuna per esaminare i valori 
'digitalizzati delle pad die per la cui lettura 


non è necessario interessare i registri di 
dire/ ione dati- 

Una applicazione pratica 

I listati delle figure 8, 9, 10 e 11 vanno 
considerati come semplicissimi esempi di 
applicazione degli accessori descritti. 

on il programma N.8 (Vie) e col N.9 
(64) compare sullo schermo una pallina 
nera la cui posizione viene stabilita ruo- 
tando le manopole. Da notare che in basic 
lo spostamento è piuttosto veloce e con- 
sente di percorrere uno spazio considere- 
vole in poco tempo. Nel caso si desideri 
utilizzare il listato come sottoprogranuna 
per giochi sofisticati, sarebbe opportuno 
tradurla in Linguaggio macchina. 

I listati IO e li, invece, rappresentano 
un adattamento di un programma pub* 
blicalo sul numero 7 di Commodore 


Computer Club (Il controllo del cursore). 
Ned* articolo citato si controllava il curso- 
re attraverso la pressione dì quattro tasti. 
In questo caso, invece, la direzione viene 
gestita dal joystick. Grazie alle righe 160- 
180 è possibile controllare la velocità di 
spostamento e La possibilità di tracciare 
una scia con il particolare carattere sele- 
zionato. Nel caso ir» cui cambiate il colore 
delio schermo tenete d’occhio i valori di- 
gitati nelle righe che colorano lo schermo; 
rischierete di non vedere nulla benché il 
cursore effettivamente si sposti sul video- 

\r 

11 d programma IO la riga MIO, selezio- 
nata premendo il tasto di fuoco, ripristina 
te condizioni iniziali del Vie 20. Conclu- 
diamo suggerendo ai possessori di un 
Commodore 64 dì sostituire il cursore con 
uno sprite e dì dirigerlo in un programma 
che utilizzi ì suggerimenti forniti in que- 
sto artìcolo. Ai migliori lavori inviati... 
ricchi premi! 

Alessandro De Simo ne 
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Figura 5 

100 REM VIC 23 s PROVE SU 
110 REM CONTROL PORT 
1 20 REM LETTURA JOYSTICK 
130 t 

140 C = 37 154 ! REM REGISTRO DI 
150 : REM DIREZIONE DATI 

160 REM STANDARD! PEEKt 0=255 
170 i 

180 ROKE C, 127 

1S8 A=37 137 • B=37 152 

200 PRINT PEEKI A > PEEK< B 1 

210 GOTO 200 

220 ! 

230 REM RIPRISTINO CONO/ I NIZ 1 AL I 

333 POKE 37154,255 

334 ! 

335 s 

READY, 


Figurati 

100 REM VIC 20: PROVE SU 
110 REM CONTROL PORT 
120 REM LETTURA PADDLE 
130 ! 

140 A=36872 ! B=A+1 

150 PRINT PEEK(A) PEEK< B ) 
160 GOTO 150 
170 ! 

130 REM VALORI STANDARD 
130 REM % SENZA PADDLE) 

200 REM PEEK (A >=255 
210 REM PEEK <B>=255 
220 : 

230 REM 

READY. 


100 
1 10 
120 
130 
140 
150 
160 
170 
130 
130 
£03 
210 
£20 
330 
243 
£50 
£60 
£70 
£80 
£80 
300 
310 
320 
330 
340 


Figura 7 

PR {NT “ijaCONTROL PORT PER VIC“ 
PRINT “SICHE VUOI ESAMINARE?" 
PRINT "S' aJBOYSTlCK/a^HFiOOLEH/'' ; 
PRINT ” SF8INE > " 

DA =37 137 s DB = 3715£ 


BIT 

7 

— 

6 

T" 


3 

ir 

1 

0 

C6M64 

Porta t 


Q 

C 

F 

E 

0 

s 

N 





SPc 

2 

CTr 

* 

1 

Porta? 


SP+ 

SPt 

F 

E 

0 

s 

N 



Shd 

> 

SP+ 

SP+ 

$P+ 


SP+ 


1 



M 

8 

C 

r 

ri 


RB=37 154 i POKE RB,I£7 
GET A* : IF A*= ■ “ THEN 160 
IF A*="J“ THEM £10 
IF A$=“P*’ THEN 340 
IF AS6=“F“ THEN 450 
GOTO 1S0 

PRINT "^7654332105 765433210“ 

PRINT “ TOBa =ORTA Al ^QRTA B5" 

PRINT “M 36872 363733“ 

X=PEEK( DA ) SFOR 1=7 TO 0 STEP-1 
IF PEEK( 653 ) THEN 450! REM TASTO SHIFT 
X1=X AND 2YISIF XI THEN PRINT “ 1 "f I GOTO £80 
PRINT "0 " f : REM A. DE SIMONE 
NEXT! PRINT" *) 

Y=PEEK< DB > SFOR 1=7 TO 0 STEP-1 
X 1 =Y AND Et I s IF XI THEN PRINT "1";:GQT0 320 
PRINT “0 " J i REM DIDATTICA 34 
NEXT! PRINT! PRINT X*'ll “Y"« * 

PRINT “H" * GOTO £40 
A = 36372 ( B=A + 1! PRINT"^J“ 


F = luoco 
e = Esl 
N m Nord 
S ■= Sud 
O - Ovest 

C T asto Co m modo re 


Ct -= Tasto CTRL 
Shd Shiift destro 
1 4 - Tasto 
ì = Tasto 1 
2 « Tasto 2 
Q = Tasto Q 
SP = Barra 


SEGUE 
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350 X=PEEK( ò) i Y=PEEK< B ? 

360 PRINT ”3"X?Y TABC 11) “VAL . CONTR . " 
370 PRINT "aa VAL. REALI 1 ' 


380 print "gas ap e* 

360 X I =FEEK< A 5 ' YI =FEEK< E > 

400 IF PEEK< 653 > THEN 450: REM TASTO SHIFT 
410 PRINT" H": PRINT FEEK(A?"II - 1 PEEKC B > "Il “ 
420 IPX 1 >X* i . 05 OR Xl<Xt.35 THEN PR INT"a‘X 1 "H 


:X=X1 SQOTO390 


430 IFY1 >Y* I ,05 QR YUYN35 THEN PR INT ,, a l, TAB< 4 > Y1 "■ "sy=YI 


440 'GOTO 330 
450 PRINT "J" 

4S0 ': 

470 POKE 37154,255 


READY . 


Figura 8 

130 REM #** USO DELLE PAODLE COL VIC 20 *** 

110 i 

120 SI « 7680: CI = 3S400: REM VIC INESPANSQ 

130 REM SI = 4096: ci = 37S38 : VIC ESPANSO (DA 3K IN SU? 

140 S2 = 3 1 : 33=31+22*23-1: C2=C I +22*23- 1 : PRINT "J" 

150 FOR X =C 1 TO C2 :POK,E X,0: NEXT: REM COLOR. FONDO SCHERMO 
160 S4=3H XX “36872 ■ YY = 36873 

170 X = I NT ( P E E K ( XX >/ le ? : Y= INTC PEEKC YY >/ 12 ? : REM ESAME PAOOLE 
180 G03UB 200 

160 GOTO 170S REM A, DE SI MONE DIGATICA ‘84 
£00 IF S£+X+Y*22 > S3 THEN RETURN 
210 IF S4 = S2+X+Y*££ THEN RETURN 

220 POKE S2+X+Y*2£,31 :POKES4 ,32 : S4=S2 + X+Y*22 : RETURN 

k' 

READY. 


Figura 9 

100 REM *** USO DELLE PADOLE COL COMMODORE 64 *** 

110 REM *** INSERIRE IL CONNETTORE NELLA PORTA 1*** 

120 : 

130 SI = 1024: ci = 55236: REM MAPPA SCHERMO 

140 SH=S 1 : S3=S1 +25*43- 1 : C2=C 1 +25*40- 1 : PRJNT “UT 

150 FOR X=C1 TO C£ : POKE X,0: NEXT: REM COLOR. FONDO SCHERMO 

160 S4 = S 1 : XX =54297: YY=XX + 1 

170 X=INTCFEEK f. XX)X6.4? 

180 Y= INT( PEEKC YYJ/10 .5 ) :REM ESAME PAOOLE 

190 GOSUB £00: GOTO 170: REM A . DE SI MONE DI DAT ICA *84 

200 IF S2+X+Y*40 > S3 THEN RETURN 

210 IF S4 = S2+X+Y*40 THEN RETURN 

£20 POKE S2+X+Y+40 ,8 1 : PQKES4 ,32 : 54 = 52+X + Y*40 : RETURN 
READY. 
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Figura 10 


100 
1 10 

120 
130 
140 
150 
160 
170 
130 
190 
200 
2 10 
220 
238 
248 
250 
280 
27Q 
280 
£90 
300 
310 
320 
330 
348 
350 
360 
378 


REM *** USD DEL JOYSTICK NEL V1C 20 *** 

REM *** *** 

REM *** ROUTINE FONDAMENTALI PER *** 

REM *** LA GENERAZIONE DI GIOCHI *** 

■ 

» 

REM PRINT PEEK <203)! GOTO 150! E Sri ME CODICE CARATTERE 


INPUT "L £ VELLO (0-1000)"; LOOP: REM DIFFICOLTA' = RITAROO 

INPUT "CARATTERE < 0-255) " ; CA i IF CA>255 THEN 180: REM CARATTERE “SCI A 


SI = 7680! CI = 38400! REM VIC INESPANSO 

REM SI = 4036 : CI * 37388! REM VIC ESPANSO (DA 8K IN SU) 

S£=S 1 s S3“S1 * = £*23-1 ! C£ = C l+££*£3-l : PRINT "J" 

FOR X=C1 TO C3 SPOKE X,0: NEXT : REM COLOR, FONDO SCHERMO 


POKE 37154,127 

X = PEEKC 37 137 ) '• Y=PEEK( 37 152 ) i REM ESAME 
IF X=11S THEN BOSUB 350: GOSUB 510: GOTO 

IF X= 1 £3 THEN G0SU8 390: GOSUB 513: GOTO 

IF X = lll THEN BOSUB 470 : GOSUB 510! GOTO 

IF Y= 1 1 3 THEN GOSUB 430: GOSUB 510: GOTO 

IF X=S5 THEN POKE 37 154, £55: END 
REM TASTO FUOCO PER FINIRE 
GOTO £50: REM A. CE SIMONE SOFTWARE '84 


JOYSTICK 
£50 : REM SUD 
£50: REM NORO 
£50: REM OVEST 
£50: REM EST 


« 

4 

REM MOVIMENTO VERSO IL SASSO. 22 = CARATTERE V 
IF SE *££ > S3 THEN RETURN 

POKE S3 +33,32 : POKE S£ r Cfi i S£ = S£+2£: RETURN 


339 REM MOVIMENTO IN ALTO. 38 = CARATTERE t 
338 IF SE -22 < SI THEN RETURN 

400 POKE SE -££,30: POKE 52 ^CA =52 = S2-22* RETURN 
4 10 i 

426 REM MOVIMENTO A DESTRA . 82 - CARATTERE > 

430 IF S2+1 > 83 THEN RETURN 

44© POKE 5£+l,6£: POKE S2,CA : S2 * S2+1: RETURN 
45© i 

4S0 REM MOVIMENTO A SINISTRA. 60 = CARATTERE < 

470 IF S2-1 < SI THEN RETURN 

400 FGKE SE - 1 ,63 v - POKE SECCAI S2 = SS - 1 : RETURN 
430 s 

580 REM SOTTO PROGRAMMA DI RITARDO 
510 FOR 1=1 TO loop; next; RETURN 


READY. 
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Figura 1 1 


100 REM *** USD DEL JOYSTICK NEL *** 

110 REM *** COMMODORE 64 *** 

1E0 REM *** ( USARE Lfì CONTROL PORT N.E) *** 

130 : 

140 REM PRINT PEEK <233?: GOTO 150: ESAME CODICE CARATTERE 
150 : 

160 INPUT "LIVELLO <0-1000?“,' LOOP: REM DIFFICOLTA' = RITARDO 
170 INPUT “CARATTERE < 0-255 CA : IF CA>£55 TMEN 170 
180 : 

130 Si = 10£4: CI = 5529G : REM MAPPA SCHERMO 

200 S2 = S 1 : S3=S 1 +25+40- 1 : C£ = C 1 +25*40- 1 : PRINT “Li" 

2 10 FOR X=C 1 TO C2 ■ POKE X , 1 : NEXT: REM COLOR, FONDO SCHERMO 

220 POKE 1024,0 


230 

X 

= FEEKX 

563 : REM 

ESAME 

JOYSTICK 

PORTA 

1 



£40 

IF 

X= 125 

THEN 

GOSUB 

330 : 

GOSUB 

480 

GOTO 

230 e 

REM 

SUD 

250 

IF 

126 

THEN 

GOSUB 

378 ì 

GOSUB 

490 

GOTO 

£30: 

REM 

NORD 

260 

IF 

X- 123 

THEN 

GOSUB 

450: 

GOSUB 

430 

GOTO 

230 £ 

REM 

OVEST 

270 

IF 

X =113 

THEN 

GOSUB 

4 10: 

GOSUB 

490 

GOTO 

230: 

REM EST 

£60 

IF 

X = 1 1 1 

THEN 

END 









230 REM TASTO FUOCO PER FINIRE 

300 GOTO 230 : REM A, OE SI MONE SOFTWARE '84 

310 : 

320 REM MOVIMENTO VERSO IL BASSO. £2 = CARATTERE V 
330 IF 32+40 > 33 THEN RETURN 

340 POKE 82+40,22: POKE S2,CA :S2 = S2+40: RETURN 
350 : 

360 REM MOVIMENTO IN ALTO. 30 = CARATTERE * 

370 IF SE -40 < SI THEN RETURN 

380 POKE S2-4P ,3B : POKE S2,CA : SE = SE-40: RETURN 
380 : 

400 REM MOVIMENTO A DESTRA. 62 = CARATTERE > 

416 IF S2+1 > S3 THEN RETURN 

420 POKE S2+1,S2: POKE S2,CA :S£ = S2+1: RETURN 
430 : 

440 REM MOVIMENTO A SINISTRA. 60 = CARATTERE < 

450 IF S2-1 < SI THEN RETURN 

460 POKE S2-1,G0: POKE S2,CA: S£ = S2 - 1 s RETURN 
470 : 

480 REM SOTTOPRCGRAMMA DI RITARDO 
490 FOR 1=1 TO LOOP: NEXT: RETURN 

READY. 


* 
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Simon Magico 


e 


questo un gioco abbastanza nolo 
di cui viene data la versione sia per il VIC 
inespanso che per il 64, con una «varian- 
te* rispetto ali’ ungi naie. 


Il gioco 


JLjo schermo è diviso in quattro parti, 


che chiameremo 1,2 ,3,4 a partire da 
quello in allo a sinistra e andando in senso 
orario. 1 tasti, dì cui vedrèmo in seguito 
l'uso, corrispondenti a ciascuna delle 
quattro parti, sono ri spetti vaine nte; «0*, 
^ 4**) * O * , * P » , 

i^JP inizio verrà generato un n ugnerò 
casuale compreso tra i e 4 {supponiamo 


2 ) e nella zona 2 verrà visualizzato un 
quadrato e contemporaneamente verrà 
emessa una nota, Noi dobbiamo premere 
il tasto corrispondente alla zona 2, che è, 
come detto prima, il tasto - +», e verrà 
quindi ristampato il quadrato nella zona 
2 . 



questo punto si passerà al livello 



36 ■ Computer Club 



due: il computer sceglierà un altro nume* 
ro (per esempio 3) e ripeterà la sequenza, 
cioè prima metterà il quadrato nella zona 
due, poi nella zona tre- Bisognerà quindi 
ripetere la sequenza premendo prima il 
tasto « +'», poi il tasto «O», 

Se la sequenza viene ripetuta corretta- 
mente si passerà al livello 3, nel quale la 
sequenza sarà: zona 2, zona 3, e un 'altra 
zona (scelta sempre casualmente)- Si pro- 
cede cosi aumentando sempre di uno la 
sequenza, fino a quando la si ripete 
erroneamente- 

A tten/ione, però, perchè c’è un'altra 
difficolta: il tempo; non si pud «pensare» 
troppo quando si ripete la sequenza- Bi- 


sogna avere, quindi, un’ottima memoria, 
integrata però da una buona prontezza di 
riflessi- 

La variante 

cniamo ora alla «variante-, se cosi si 
può chiamare, dì cui si parlava aF inizio. 
Supponiamo che dobbiate cimentarvi a 
questo gioco con un vostro amico» 

Se siete sicuri di riuscire a batterlo, e 
cioè di arrivare ad un livello maggiore del 
suo, non c’è nessun problema: giocate 
come spiegato sopra, 

S 

kJe pero avete qualche dubbio, oppure 
volete battere il vostro amico di molto, 


non preoccupatevi: si può usare un 
trucco,.. 

Senza farvi scoprire dafi’amfco, quando 
dovete ripetere la sequenza, invece dei 
tasti «0*, *+» t «O-, «P», battete la barra 
spaziatrice» Il computer ripeterà da solo e 
senza errore la sequenza- 

N on dovete fare altro che far fìnta di 
premere i tasti giusti. A questo punto non 
vi resta che arrivare ad un livello suffi- 
ciente a sconfiggere il vostro amico, e poi, 
invece di usare il trucco, sbagliare appo- 
sta la sequenza (o l’amico com incera ad 
insospettirsi per la vostra abilità) e, mi 
raccomando, qualche volta fatelo 
vincere». * 

Giovanni Bellù 


G REM SIMON MBS ICO 
i REM VERSIONE ,VIC INESFANSO 
£ REM 

3 REM GIOVANNI -BELLU* 

4 REM 

5 REM VI fi GIARDINI £0 

G REM 

7 REM £003S SEREGNO (MI) 

8 REM 

9 REM 

10 P0KE3SS79 ^ £7 * REM COLORE SFONDO 
15 OIM X<50)SREM MEMORIZZA SEQUENZA 
80 PR INV’iar sREM COLORE NERO 

£2 Q I MAC 4 > s REM SERVE PER SPRITE 

£3 D!MA*(4,2> 

ii 5 REM ************** 

£G REM * I N I T , SUONO** 

27 REM *********** * * * 

30 FQRK=3S374T03S87S £ POKEK ,0 * NEXT: REM AZZERA CIRCUITO SONORO 
40 PQKE36S7S,1S=REM VOLUME AL MASSIMO 
70 H =38874 * REM VALORE FQKE PER NOTA 
80 REM ************** 

S5 REM * INI T . SPRITE* 

S 0 R EH ************** 

155 m l > = 135 - REM NOTA 00 
150 A< £ ) = 147* REM MOTA RE 

157 A£ 3 > = 1 53 * REM NOTA Mi 

158 A< 4 > = 1 63 f REM NOTA FA 
£00 PR I NT 1r k2 tì 

£20 PR I NT“ JSBS' 1 : F0RK = 1 TO 17 ; PR INTTrìBC 3 ) " I : NEXT 
H30 PRiNT'- asBiiBiggMmmt«MBi ''; 

£40 PRIHT" - t- ! REM 22 
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500 REM ************** 

510 REM *INIZIQ GIOCO# 

580 REM ##**#*##### 1 *** 

525 C=0 : REM C*= CONTATORE NOTE 
52B GOSUB 10000 

530 X= JNT< RND< 1 1 *4 > + 1 : IFX< 10RX >4THEH530 

53 1 IFX< C ) =XTHEN530 

535 FORK=1TO50SGETA*:NEXT 

540 C*C+ 1 :X( C ) -XiPR INT- aai ECCO Lfl SEQUENZA " 

545 FORM* 1 TOC 

546 POKEH , AC XC N> ) :PRINTA$C XC N> , 1 > 

547 FQRK= ITO 300 • KEXT: PR INTA*< XC N) ,£>: NEXT: POKEH ,0 

54s pr iNT- aaa indovina 

543 FORN= I TOC 

550 FORK * 1 TO400 : GETAS: IFA* = ‘ "THENNEXT: POKEH ,0 : GOTO5000 

554 IFA$=" "THENG000 

555 IFA*= ”0 “THENQ* 1 :K=5B1 :G0T05SQ 
55S 1FAT= "+ "THENG=£ iK=501 SGOTO5G0 
557 IFA* = “0 *’TH£NQ*3 : K*50 1 : GOTO560 
55C IFfì*= ,, P”THENG = 4 SK=501 : GOTO5S0 
553 NEXTK : POKEH ,0 s GOTO5000 

5G0 NEXTK : IFX< NK >QTHENGOTO70O0 

570 PR INTA*< X< N) , 1 > :PQKEH,AC XC N? > SPRINTAI XC N~1 > ,2 > ' NEXTN 
5S0 FORK = lTO400iNEXT: POKEH ,0 SPRINTAI XC N-L>,£> 

585 FORK* ITO 1000 : NEXT: GOTO530 

5000 PRINT"'L»*W QUANTO TEMPO CI METTI ????“ 

5010 PR INT"ER I ARRIVATO AC L I VELLO “ f C : GOTO i 5000 
6000 J=N:N=C+ I : NEXTN 

6010 FGRP=JTOC ) 

6020 POKEH, A< X( P) > : PR INTA$< XC P ) , 1 ) SPRINTAI XC P-l > ,2 > 

6030 FORK = 1TQ300 SNEXT: POKEH, 0 SPRINTAI X( P) ,2> iNEXT 

6040 FORK = ITO 1000: NEXT: GOTO530 

7000 PRINT’LJHA SBAGLIATO LA “N”* NOTA" 

7010 PR INT”ER 1 ARRIVATO AL L I VELLO C : GOTO 15000 
9933 EKO 

10000 E$="a nini ami aiMM ■" 

10001 a j= 11 amMUi 11 

10002 A$( 1 , 1 ) = "«'’+AT+B* 

10003 A$C 2 ■ t 1 = “«" +BS 

10004 ATC 3 , 1 ) = ”3" +A^+”MgasS8BBE!l' , +B* 

100C5 Aaf 4 - 1 -> = ■■»■• *^4 ‘IMMMMM BMI" 

1 C 006 c*=*b ami orni ami ■" 

10007 A^>: 1 ,2>=A*+C^ 

10008 AìC 2 .g)afltt l ‘ i— Wl ^tCI 
10003 A3T 3.g)=ft$4* Mffil ffll M B mi ''tC$ 

15060 POKEH ,0:FORK= ITO5000 : NEXT 
15001 PRINT"LB VUOI GIOCARE ANCORA ?" 

15010 GETA*: IFA*< >"S"ANDA$< > "N“THEN150 10 
15020 IFA$= “ S “THENRUN 

READY. 


\ 
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0 REM SIMON MAGICO 

1 REM VERSIONE COMMODORE 84 
E REM 

3 REM G l‘0 V fi N N I - BELLO 1 

4 REM 

5 REM VIA GIARDINI 20 

6 REM 

? REM 20038 SEREGND < MI) 

3 REM 
3 REM 

10 PGKE532B0 ^ 3 - F0KE532S 1,3* REM COLORE SFONDO 
15 DIM XC 300>£REM MEMORIZZA SEQUENZA 
20 PR I NT 11 11 i REM COLORE NERO 

22 O IMAC 4 ,g? i REN SERVE PER SPRITE 
25 REM $****+******** 

SS REM *IN!T. suono . * 

E? REM t-* ***# ******** 

30 FCRK=54£72TQ5427£+30i POKEK ,0 ; NEXT* REM AZZERA CIRCUITO SONORO 

40 P0KES429S, 15 : REM VOLUME AL MASSIMO 

50 P0KE54278 / 255 s REM SUSTA IN RELEASE 

B0 P0KE54276 , 17 s REM FORMA D’ONDA 

70 H =54373 l REM VALORE PDKE PER NOTA 

36 REM A A ******** * * A * 

85 REM *IMTT. SPR 1 TE t 
33 REM ************** 

100 V =53348 

110 e ORK=83STB33S+63tPOKEK ,255 i NEXT: REM FORMAZIONE SPRITE 
115 REM LOCAZIONE MEMORIA PER . 

120 PO K E £04 8 ^ 1 3 J REM . SPRITE 1 
12 1 POKES34 1 , 13 S REM . - - SFR ITE £ 

122 POKE204H , 13 i REM ... SPRITE 3 

123 FOKE£043,13iREM , SPRITE 4 
125 REM COLORE SPRITE 

13S P0KEV+33,S:REM SPRITE I BLU 

135 F C K E V + 4 O , 1 1 REM SPRÌTE £ BIANCO 

136 POKEV + 4 1 y 2 'REM SPRITE 3 ROSSO 

137 P OK E V + 4 2 , 5 J REM SPRITE 4 VERDE 

140 FGKEV ■f £3 ,255 : POKEV+29 , £55 = REM INGRANDISCE SPRITE 
155 A< 1,1 >=17* REM NOTA 00 
158 A< £, 1? & 13: REM NOTA RE 
157 AC 3 / 1 > =2 1 s REM NOTA MI 

i 53 ac 4 , 1 >=aa;s rem nota fa 

1 5S AC 1 , 2 5 = 1 
180 AC £ ,2 )=2 
IBI AC 3 ,2 )=4 

1 62 AC 4,2 5 =3 

163 POKEV,lB0s REM X SPRITE 1 
170 POKE V + 1 / 1 0 0 5 REM Y 

175 PGKEV+2, 180SREM X SPRITE £ 

1 SO FQKEV43 , 100; REM Y 
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1Q5 

190 

1S5 

136 

600 

£20 

£30 

246 

500 

510 

520 

525 

530 

531 
535 
540 
545 
54S 

547 

548 

549 

550 

554 

555 


PQKEV +4,100! REM X SPRITE 3 
FQKEV+5 f 160: REM y 
FOKEV+6 jr 3 30 : REM X SPRITE 4 
POKE V + 7 f 160 * REM Y 
PR 1 NT JI U w 

PRINT' SST sFDRK = 1T0171PR INTTAB< 17 ? 11 1 " iNEXT 
PR I NT “ — MMimir J 

PR INT " \ * : REM ££ 

REM ************** 

REM «INIZIO GIOCO* 

REM ************** 

C=0iREM C * CONTATORE NOTE 

X=INT< RhCK 1 > #4 ) + 1 5 I FX< 1ORX>4THEN530 

IFXC C>=XTHEN53B 

FORK = ITO 10 :GETAT:NEXT 

C=C + 1 SX< C>=XtPRlNT li a^l ECCO LA SEQUENZA ,l 
FORM" 1 TOC 

POKE V +21 f AC X< N) r B) : FOKEH r A< XC H> ^ 1 > 

FORK * 1 TO300 : NEXT : NEXT : POKER , 6 : POKE V + 2 1 , 8 
FRI NT H MM INDOVINA 

FGRN= 1TOC 

FORK - t TO408 i GETn^r IFA$=*" "THENNEXT* POKEH ,0 * GOTO5O00 

IFA$=" “ THEN6000 

1F A$= "0“THENQ= 1 :K“50 1 : GOTO560 


556 IF A4» = + H THEMQ =2 : K =50 i i GOTO560 

557 1FA$ = H O u THENQ=3iK®50 1 3GOTG560 
553 1 FA$- 11 P "THENQ = 4 sK»50 1 3 GOTO5B0 
553 NEKTK : POKEH ,0! GOTO5000 

566 NEXTK : ì FX^ NX >QTHENGOTO7000 

570 PGKEV+S 1 ,A< X< N > ,2 ) 3POKEH ,A( X< N) , 1 > : NEXTN 

580 FORK = 1 TO400 s NEXT 5 PGKEV +2 1 t B 5 POKEH r & 

535 FORK = 1 TO 1 000 3 NEXT : 6OTO530 

5000 POKEV + 21 ,e:PRINT H iJB v lA GUANTO TEMPO CI METTI ????" 
5010 FRI NT ,J E R I ARRIVATO AL LI VELLG 11 ; C : GOTO 3 5000 


6000 J=N!N=C+1 SNEXTN 
6010 FQRF = JTQC 

6020 POKEV +2 1 XiP) ,E > : POKEH r A< X< P > ^ 1 > 

6030 rniJK= 1TD3O0 N4EXT : POKEV +£ 1 ,0 s POKEH ^0 5 NEXT 
S040 FORK’ 1 TO 1630! t^EXT : GOTO530 

7000 PDKEV+21 J r0:FRlNT ,, iJOHA SBAGLIATO LA NOTA" 

7010 PR INT "ERI ARRIVATO AL L I VELLO C = GOTO 15000 
3983 END 

10000 POKE53230 , D s P0KE532S 1 , 1 1 : PR INT H B J ' 

10001 END 

1 5900 POKEH , 0 s FORK = 1 TO5000 : NEXT 
15001 PRlNT-fcJG VUOI GIOCARE ANCORA 7" 

15010 GETA$: IFA^< > H 3 "ANDA3K > " N " THEN1 50 1 0 
15020 IFAS= M S H THEr4RUN 


READY. 

" i * • * ,v ** ' . - - i ! ♦ .. ; '<•} 
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80 Colonne 

per 


U no dei (pochi) difetti thè martirizza i 
possessori del Vk 20 è certamente la limi- 
tata possibilità di rappresentazione del- 
l’integrato 6561, il famoso Video Interfa- 
ce Chip, Infetti, in condizioni normali, la 
dimensione delio schermo è limitata a 506 
caratteri, distribuiti in 22 colonne e 23 
righe. Come molti sapranno, agendo op- 
portunamente sui registratori del 6561 sa 
può ampliare la finestra video che, a se- 
conda del monitor utilizzato, raggiunge 
appena ì sette caratteri in più per le due 
dimensioni. 

Q uesta deficienza, che assume impor- 
tanza con raumentare dell’esperienza del 
programmatore, è stata in parte ovviata 
da certi programmi commerciali che, 
usando responsione da 8 Kb, aumentano 
la capacità del video a 40 colonne ma 
presentano alcuni inconvenienti, come la 
grande occupazione di memoria, la ridu- 
zione della visibilità e della velocità di 
stampa e il modo anormale di gestire le 
istruzioni PRINT, 

flsislODO anche espansioni hardware 
che, sostituendo il 6561, permettono la 
visualizzazione di 80 colonne (ma serve il 
monitor per distinguere i caratteri) che 
hanno Pinco riveniente dì costare come o 
dì più della stessa macchina. 

La soluzione 

C costata to quanto sopra, per rendere 
meno «home* il Vk, ho pensato dì creare 
uno schermo virtuale di 80 colonne per 23 
righe al quale si può accedere come una 
stanza dal buco della serratura. In altre 


IlVic 

parole, £1 nostro ■* solito» schermo sarà 
utilizzato come un foglio opaco al cui cen- 
tro è stato praticato un foro rettangolare 
(di 22x23) e che può scorrere su di un 
foglio di maggiori dimensioni . 

I programmi... 

aturalmente, non sarebbe stato op- 
portuno gestire k> schermo 80x23 me- 
diante routine di stampa, scrolli e pulizia 
video scrìtte in BASIC, perciò quella del 
Linguaggio Macchina è stata una scelta 
obbligata . La prima cosa da fare consìste- 
va nel creare delle tavole con gli indirizzi 
delle prime colonne video «normali*, del- 
le prime colonne dello schermo 80x23, del 
codici ASCfl d'azione (per intenderci, 
quei codici che non provocano la stampa 
di un carattere, ma un azione, per esem- 
pio il 147 alias C LEAR- pulizia video), 
degli indirizzi delle rispettive routine. 

Q uindì, ho scritto un programma che 
controlla il carattere ASCII e chiama, a 
seconda del codice individuato, le seguen- 
ti routine: 

SCROLL ($1B3C-$IB82) 

Gestione CRSR UP ($lA03-$ A li) 
Gestione CRSR DOWN ($1A12-$1A22) 
Gestione CRSR R1GHT ($IA23-$IA59 
Gestione CRSR LEFT ($ IA5A-S IA8C) 
HOME ($IÀ8D-$1AA1) 

Spegni -sposta cursore ($IAA2-$1ABB) 
RVS ON (S1ABC4IACI) 

RVS OFF (S1AC2- -$IAC7) 

CLEAR ($1AC8*$ÌB2D) 

CR-Carriage Return ($1B2E-$IAF7) 
Stampa Carattere ($1AF8-$1B3B) 


T J e variabili di sistema risiedono nelle 
locazioni 6449-6454 secondo il seguente 
schema: 

$1931-6449 posizione X del cursore sullo 
schermo 22X23 

$1932-6450 posizione V sui due schermi 
$1933-6451 posizione X del cursore sullo 
schermo 80X23 

$1934-6452 codice ASCII da decodificare 
$1935-6453 codice di schermo del caratte- 
re da stampare 

$19366454 revere flag (0=RVS OFF; 
128=RVSON) 

il loro uso 

Il programma numero I È quello che 
permette di caricare i codici esadecimali 
delie routine in L.M. nella memoria dei 
Vk, mentre quello numero 2 è r utilizza- 
tore della routine che parte dalia locazio- 
ne 6574; si tratta di un banalissimo TEXT 
EDITOR e di un programma per la scrit- 
tura di una stringa date k coordinate di 
inizio. Prima di digitare o caricare il pro- 
gramma 1, sì deve inserire POKE * 
43, l32:POKE 44,27tPOKE 7043,0 e dare 
il RETURN, 

uest 1 ultimo, una volta terminato il 
suo compito, carica dal nastro automati- 
camente il programma 2 (quindi il pro- 
gramma 2 dovrà essere registrato appena 
dopo il primo) e Jo manda in esecuzione. 
Ho inserito anche un hard-copy del video 
80X23 che si attiva con il tasto fi, mentre 
si è in modo TEXT EDITOR; con £3, 
invece, si ritorna al menu, 

N aturalmente, il programma 2 è solo 
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un esempio d* utilizzo della routine che 
può venir sfruttata iti modo piu costrutti- 
vo da un programma di word processing. 
Infatti qualsiasi stringa proveniente dal 
programma BASIC può essere stampata 


dalla routine in questo modo: 

ola. I due programmi pubblicati so- 
no disponìbili su cassetta da richiedersi 
allo stesso Autore. E 5 inoltre a disposizio- 


ne per gli utenti del Vie senza espansioni 
una cassetta con la registrazione dì una- 
versione semplificata di questi 
programmi. 

Pasquale D'Àndreti 



100 REM ************************************* 

110 REM ^PROGRAMMA 1 * 

180 REM * 80 COLONNE PER IL V1C-20 * 

130 REM * OCCORRE L’ESPANSIONE DI ALMENO 8K * 

140 REM *BY PASQUALE D 1 ANDRETI * 

150 REM WIA MADONNA STELLA, S * 

160 REM *81053 RIARDO ( CE > TEL. 0923/981816* 

170 REM * * 

186 REM ************************************* 

190 F0K£3S879,8S PRlNT w iJr ; 

200 IFPEEKC 44 >< >2?0RPEEKC 43 K > 132GRPEEKX 7043 >< >0THEN31B 
210 PRINTT '80 COLONNE PER IL V ICimiCllfefeHE Y “ 

220 PR 1 NT SOFTWARE 1984*" 

230 PR 1 NT "XHI5CEGL I IL SET DI CAR. 

840 PRlNT H Mttia: l 3*lMA IUSCOLO-6RAF " 

850 PRINT"3MM 2 1 fM INU SCOLO -MA IU " 

£60 GETA$? JFA$=" "THEM260 

270 A = VAL< A*> £ IFA< > 1AN0A< >2THEN280 
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780 DATA 69, 16 ,85 ,FC ,90 ,02 ,E6 ,FD ,A6 ,FC ,E0 ,FA ,O0 ,D3 ,A9 ,07 
790 DATA A2,00 ,90,00 ,94, 90, 00,95, CA,D0,F7, 60 
800 DATA X 

910 PR 1 NT*D IG I TA POKE 44 ,27 : P0KE43 , 1 32 : POKE7043 ,0 *J 
820 PR I NT" < RETURN > E RILEGGI IL PROGRAMMA * i END 

READY. 


100 REM ************************************* 
110 REM *PROGRAMMA 2 * 

120 REM * 80 COLONNE PER IL VIC + 8K RAM * 

130 REM * * 

140 REM *BY PASQUALE O'ANDRETI * 

150 REM *VIA MADONNA STELLA, 6 * 

160 REM *81053 RIARDO <CE> TEL, 

170 REM * 

180 REM ************************************* 
190 OIMAVK 79,22? 

200 PR T NT lf klEB COLONNE PER IL VIC* 

210 PR INT"9C9m3 I 3MHTEXT EDITOR" 

220 PR tNT- lfciar 2 1 MI INPUT STRINGHE" 

230 PR I NT " 3K9UHUUSCEGL I “ 


0823/981216* 

* 


240 GETA*:A=VAL< A») : IFA< > 1ANDA< >2THEN240 

250 ONAGOTO260 ,430 

260 BETA*: 1FR*= » "THEN260 

270 A=ASCC A*) : IFA= 133THEN300 

280 IFA= 1 34THEN200 

290 F0KE6452 , A ì SYS6574 i GOTO260 

300 FOR I=0TO22:FORK=0TO79!A!'K K , I ? =PEEK< 4608+ I *B0+K > 
310 hCXTK , I :RN*=CHR*C 18>SRF*=CHR*< 146? 

320 0PEN1 ,4 ,PEEK< 0) : FOR I =0TO22 : FORK=0TO79i S=A/.< K , I ? 
330 IFS>127THENS=S- 128 : C*=RN*: GOTO350 
340 C*=RF* 

350 IFS< 320RS >93THENS=S+64 : GOTO380 
360 IFS >3 1 AM?S< 64THEN380 
370 S^S+32 
380 1F8=34THENS=39 

390 A*=A*+C*+CHR*( S > : NEXT: PR INT# 1 ,A*; t A*= “ * 

400 NEXT : PR INTW 1 : CLOSE 1 

410 FOR I =0TO22 : FORK =0TO79 ■ POKE4608+30* I +K , A?C( K , 1 > 
420 NEXTK , I SGOTO260 

PRINT'^” * INPUT*STR 1NGA “ S S* 

INPUT"gBFOS 12 IONE C X , Y? " X ,YS POKE6450 , Y 
IFX >65THENP0KE645 1,58: P0KE6449,X-5S : GOTO470 
2 =X - 1 NT< X/22 ? *22 • P0KES449 ,2 :RQKE6451 ,X-Z 
470 FOR I = 1T0LENC S*? : P0KE6452 ,ASC< MID*< S*, 1,1?) 

480 SYSG574 : NEXT: GOTG200 


430 

440 

450 

460 


READY. 
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Effetti 

Sonori 



10S 

■REM )i ♦ EFFETTI i'OfslOR 3 

* ** 

110 

REM *+* PER VIC £0 SENZA ESPANSIONI 

t * * 

ise 

REM *+* G I AMPfìOLO CERVONE Vlfi'RIQLG 

+ * * 

130 

REM t** N.1C PALERMO TEL . 03 1 /58B06 1 

♦ Jjt 

140 

V-3GS7B 


1S0 

POKEV , 15 


ìee 

POKEV + 1 / 33!PRINT"Laa EFFETTI SPECIALI B " ! 

170 

PR 3 NT 


IBS 

PR 1NT " A -ALLARME " 


ISO 

PR I NT M B "LASER 11 


300 

PR I NT " C -ESPLOSIONI " 


£ \ 0 

PR INT"0-SGU ILL I * 


PPG 

FRI NT B E -ONDE 11 


£30 

PR INT"F-C INQUETTIO " 


340 

PRINT“S“UFO 1 " 


350 

PRINT"H-UFO 2" 


2S8 

FRI NT I -UFO 3 H 


270 

FR I NT "J -GUERRA “ 



PR II- 17 "fi -ELICOTTERO 11 


BBS 

PR INT "L-TFtEMO " 


S03 

FRI NT "M- VENTO" 


3 IO 

PR INT "N-TEMPORALE " 


3£0 

PR I NT "0 -DECOLLO “ 


330 

PR I NT “P- AEREI “ 


340 

PF. J NT G -CAMPANA " 


3 5 ► J 

PR INT i PR INT " 1 SPfiZ IG 1 “STOP " 

■ 1 

300 

GETA^s JFA*< n A"ORA^>"3 "THEN3S0 


37C 

N=ftSC< fitn '34 


330 

> 11 H r Tf i £ NN= fiSC ( > - 73 ‘ GOTO 4 O0 


330 

0NNGOTO43I& / 550 f E : S0 f 780 ? 8SG , 1G4G, i 13 

0 , 1 £00 

4G0 

ONNGO.TO 1S93, 1370, 1-1-13,1433, 

15S3, 1S50 , 1733, 1733, 1833 

- 


Q uesto programma utilizza i gene- 
ratori di suono e di rumore bianco 
de! VIC 20 per produrre degli effetti 
speciali abbastanza interessanti e 
divertenti, 

iVfPinìzio del programma appare 
sul video una tabella che elenca tutti 
gli effetti riproducibili corrisponden- 
ti ai tasti dalia A alla Q. Per arrestare 
1* esecuzione e passare ad un altro ef- 
fetto basterà premere la barra spa- 
zìatrice e quindi H tasto desiderato. 

Alcuni degli effetti programmati 
sono tìpici dei videogioctii (esempio: 
Ufo, Laser, Allarme) altri, invece, 
sono abbastanza realìstici (esempio: 
Elicottero, Temporale, Vento, Treno 
ecc*)* Ad esempio nel * Temporale* si 
sente chiaramente la pioggia che ca* 
de incessantemente cui si sovrappo- 
ne, ad intervalli casuali, il rumore 
del tuono, 

iP er comodità di compilazione nella 
linea 10 del programma viene defini- 
to V= 36878, di conseguenza V-l, V- 
2, V-3, V-4 rappresenteranno le loca- 
zioni di memoria dei quattro genera- 
tori sonori. 


Giampaolo Ccrvone 

Via Vincenzo Piolo 10 - 90139 Palermo 

Td. 091/580061 
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R. Jeffries, G. Frsher, 6. Sawyer 
DIVERTIRSI GIOCANDO CON 
IL COMMODORE 64 

m 216 L 22.000 
Una raccolta di 35 programmi 
che impiegano tutte le migliori 
caratteristiche del 
Commodore 64, in particolare 
il colore, la grafica e il suono. 

Il libro suscita interesse non 
solo per i giochi in esso 
contenuti ma anche per la 
quantità di "trucchi 1 ' dì 
programmazione che si possono 
imparare utilizzando i listati. 


J. Heilborn, R. Talbolt 
GUIDA AL COMMODORE 64 

pag. 464 L 36.000 
Finalmente un completo 
e documentato manuale per il 
Commodore 64, 

Vi si trovano descritte tutte 
le funzioni e i comandi 
del BASIC con particolare 
attenzione alia grafica, al colore 
e al suono. 

Alcuni importanti capitoli sono 
dedicati ai problemi 
dei l'interfacciamento. 

Una scelta d'obbligo per chi 
vuole ottenere il meglio 
dal proprio computer. 


La McGraw-Hill pubblica in tutto il mondo 
decine di titoli dedicati ai calcolatori 
della Commodore. 

RicMedete il catalogo dei libri in lingua 
italiana e il McGraw-Hill Computer Catalogate 


distribuzione in libreria: 

Messaggerie Libri S.p.A. 

Via Giulio Ca roano, 32 
20T41 Milano 


McEraw-Hiil Hook Co, GmbH 

Lademannbogen 136 
D 2000 Hamburg 63 
Repubblica Federai* Tedesca 



41S GOTD300 
420 END 

430 DETRAE ]FP$= « "THEN1S10 

440 RETURN 

450 REM ALLARME 

4 SA FOKEV-I,£53 

470 FORM” i SBTQ835STEP * 5 

480 POK EV-£,M 

430 NEKTM 

500 , P©KC V -S , 0 

510 FORM= ITO 1 00 

370 NEXTtl 

5.TB GOSUB430 

540 GOTO450 * 

550 REH LASER 

38Ci POKEV, !0 = POKEV-1 # E53, 

“70 f r 0RH*£55TG243STEF- 1 
580 FOKEV-£,M 
500 NEXTM 

GO0 FORM= 240TO255STEP £ 

210 PQKEV~£,M 

820 NE y TH 

630 POKEV-2,0 

840 GOSU&430 

B50 GQTO550 

880 REM ESPLOSIONI 

S73 FQKEVM ,C RNDÉ I > *S0M50) 

BS0 RQRL = 15TO0STEP-3J G0SUB433 

830 PQKEV s D=RND( 11*500+336 

700 FORMAI TCP 

710 NEXTM 

720 NEXTL 

736 PC’KEV" 1/0 

740 RQKEV ,0 = D-RNO< 1 >* 100 + 50 
750 FDR J = 3 TOP s MEXT ! GOTOB80 
780 REM SQUILLI 

770 fi = 250EB = 253:POKEV f 15 = FORM= 1 T02S 
730 P0KEV"2 , A - P0KEV~3 ,B 
730 FORN= ITO i 2 
eag NEXTN 

POKEV-S,0J P0KEV*3,B 
SCO NEXTM 

830, FORH- 10TO0STEP w » 08 

640 PCKEV ,H ì POKEV-H , A s POKEV -3,3; NEXT 

850 FORM- ITO 1000 

860 NEXTM 

870 GO3UB430 

830 GOTO7S0 

330 REM ONDE 

BBù P GK EV-1 , 180 

3 1 0 D=INT< RND< 1 >*5>*50+50 
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320 F 0RM-2TG15 
330 3CSUB430 
3 40 POKEV jM 
B50 F0RN= 1 TOD 
SCO i JFXTN 
373 NEXTM 

S88 FORM- 1 57Q2S TER - 1 

33Z POKEV, M 

1000 FGRN= 1TOD 

1310 NEXTN 

10 £3 UEXTM 

1030 GDTO330 

1040 REM CINGUETTIO 

1053 FORM=£54TO240+INTC RNDC 1 > StEP - . 3 

ISSO POKEV -2 j-'M 
1070 MEXTM 
] OSO POKEV -£,0 

1830 FORM-0TO I NTC RhCK 1 ? + 1 00 ) ( 

noe NEKTM 

1110 GOEUE430 

112© GOTO 1040 

USD REM UFO 1 

ì t 40 POKEV U5:F0R L = 130 TO 250 
1150 POKEV -2, L 
USO NE X TL 
1 17S POKEV ,3 
1 ICO GDSUE430 

! 130 GOTO 1130 . - — 

1233 REM UFO £ 

1210 FOR^=£20“LTOÌS0”L 3TEF~4 
1220 POKEV -2 ,M 
1230 NEXTM 

1240 FORM- 160-LTG220-L STEP4 

1250 POKEV “2, M 

1260 NEXTM 

1273 GO3UB430 

1230 GOTO 1200, 

1280 REM UFO 3 

1300 FORL - 1 TO i 5 

1318 GOSUB430 

1320 FORM-H00TO22B +L*£ 

1330 POKEV -8 ,M 

13:40 NEXTM 

1350 NEXTL 

1360 GOTO 1230 

1370 REM GUERRA 

1330 J- INT< < RNCK 1 >* 100) + 150 ) 

3390 FORN=JTO 150STEP-1 
1400 FUKEV-2 ,Ni POKEV- UN 
1410 NEXT 
1420 G05UB43© 
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1430 GOTO 1370 
1443 REM ELICOTTERO 
1459 OO3UB430 

J 4 SS POKEV ,220 ! FORJ = 1T055 • NEXT! POKEV - 1 ,0 
1470 FORJ=1TO10:NEXT 
! 430 GOTO 1450 
! 1430 REM TRENO 
1500 H=0:S=3: Y=150 

1510 GOSUB430 s H=H+ 1 : FORK = 1 60TO230STEPS 
1520 POKEV- 1 ,K : NEXT 

1530 IF INTC H/10) =H/10THEN3=S+ 1 i Y*Y- 13. 

1540 IFS>30THEN3=1 :Y=150 

1550 POKEV- 1 ,0ìFORJ=:TOY:NEXT! 30701513 

1580 REM VENTO 

1573 L=1NT<RND< 1)*33> 

ISSO FQRK = 15CT0235! G0SUB433 
1533 FQRTMTPLfNEKT 
'1S30 POKEV * 1 r K! NEXT 
18 JS FORJ =£35T0 153STEF- 1 : G0SUB430 
1820 FOPT= 1 TOC • NEXT 
1 £23 POKEV - 1 , J : NEXT 
15'» 3 GOTO 1560 
1653 REM TEMPORALE 

ri 

•i 660 POKEV, 5 

;370 POKEV -1,245 

SEGO L=INT(RNO< 1 > * T500 > 

1698 FORJ = 1T0L 1 GCSUB430 ! NEXT 
1700 FORG= 15T09STEP- . 5 1 60SUB43Q 

}7 10 POKEV- 1 , 1 50 » POKEV , G » FORY= 1 TO500 * NEXT s NEXT 

1720 GOTO 1650 

173S REM DECOLLO 

1740 FORK=200TO243 

1750 POKEV- 1 ,K 

1760 FGRT= ITO 100 ( GGSLB433 : NEXT: NEXT 
1770 GOSUB430 ì GOTO 1770 
1783 REM AEREI 

1 790 FCRK =£53 TO 1 70STEP - . £ : 3OSUE430 
1508 POKEV- 1 ,K: NEXT 
i 1310 Y= 1NT< RT®< 1 J * 100 J 

18£0 FORT=1TOY!GGSUB430!.NEXT: GOTO 1730 

1330 REM CAMPANA 

1340 R =244 i FORK= 15T0 1STEP - . 15 

1650 POKEV ,K I POKEV -2 ,R ’ POKEV-3 ,RI POKEV-4 ,R 

1860 NEXT 

1370 R=24 1 s FORK = 15TC 1STEP - . 15 
1880 POKEV ,K : POKEV -£ ,R : POKEV-3 ,R ! POKEV-4 ,R 
j 1890 NEXT 

1S00 GOSUB430 SCOTO 1830 

1310 POKEV ,0 ! POKEV -1 ,0! POKEV -2 ,0 : POKEV -3 ,0 ! POKEV-4 ,0 S RUN 
READY. . 

1 i , r . u ■ • 
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Commodore 64 



Le torri 
di 

Hanoi 



V n gioco classico che richiede mol- 
ta pazienza. Ideale per chi possiede 
perspicacia, può essere giocato da 
più persone che formino delle «qua- 
dre. Preparatevi a litigare, in tal ca- 
so, per la determinazione deila mossa 
«giusta!». 


103 REM *+ TORRI DI HANOI *■* 

1 10 REM ** ADATTAMENTO PER IL C64 ** 

120 REM ** DI MARIANI G, & SORGATO F . ** 

130 REM ** VIALE BRIANZA 72 MEDA <M!> ** 

143 REM ** TEL. 33G2/7E3E5 ** 

150 PR INT”3" 

160 PQKE5323 1,0 
170 D IMA< 23 ) 

130 N= 1 1 - C-= 1967 
190 I 1 =TI 

200 IRTI -I 1< 120THEN200 

210 P R I NT “ J VUOI LE. REGOLE ? C S/N V 

220 GETQ*: IFQ*=" "THEN220 
230 1FQSM "N-THEN270 

240 I FG*= *S “THENGOSUB 1 900 : GOTO270 
250 GOTO210 
ESO CLR 

27P PR I NT" liHHSHE UANT1 DISCHI VUOI SULLA TORRE ?" 
280 PR 1NT 11 MBPSCR IVI UN NUMERO TRA 2 E 7" 

290 FCR 13 = 1 TO 10 s A< I3>-0:B< I8>=0iCC I8)*0:NEXT 
300 Q*= "234567 " s J =0 ! K=0 : CNT 1 =8 
310 GETN^: IFN*=" "THEN310 

320 F0RIS=1TO6: IFN$=MIG$< Q*, 13 , 1 JTHEN34Q 
'330 NEXTi GOTO310 

1340 C= 13G3:N=VAL< N*> ìPR INT" ii" SGOSU62320 : GOSUB 1 1S0 
I - . T - - - » - 
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350 IFN< 2DRN >7 THEN 1 140 

360 FORI 1 =0TON- 1 : I i* O =< N- 1 1 ) *£- 1 : NEXT:C= IS5S : I =N 

370 eosuBiseo 

380 G0SUB1760 

330 AL = 1 ! PR INT“3" :pR INT’SCR IV I LA TUA MOSSA “ 

40O SETR1*! IFR1$= " "THEN400 
413 GETR2$i IFRS$=" “THEN4 10 
420 IFAL= 1THEN450 
4 30 GDSU31840 
440 AL=1 

450 IFR1*=R2*THEN1 130 
400 IFR 1:6 = “fi "fìM3R2S= "B "THENS30 
470 JFR 1 %= "B "ANDR2$="A "THEN62-0 
480 1 FR 1 *=“ fì H ANDRE** "CTTHEN? 10 
493 IRRISA “C "flNBR2*- “fi "THENS10 
503 3FR ì* = "B “ANDR2*= "C “THENS00 
SIS IFR 1 *= “C “ANOR3*=“B"THEN1000 
52G GOTO 11 30 

533 Ir 1=0 THEMI090 i REM MUOVE DA A IN B 

540 1FJ=0THENS6O 

350 1 F B< J K A< I ) THEN 1113 

520 X = 1 953 : Y= 13S3 

570 Pl-1 !R2=J+1 !0SC2=A( I > 

533 FK P2 > =A< I ) : 1 = 1-1 J J=J+1 

330 GO3UB140S 
BOA SO8UB1770 
£10 OOTG390 

52C IF J =STHEN1090 '• REM MUOVE DA B IN A 

830 IF 1 =0THENB50 

S4 0 IFAC IKBC JJTHEN1 1 13 

850 X» 1963 IY" 1950 

S63 P 1=J : P2= I + 1 : DSC£=BC J > 

670 AC P2)=B( J ) ! 1 = 14 1 ! J=J- 1 
£0G COSUB1400 
G3P GOSUB1770 
700 3OTQ330 

710 IF 1=0 TRENI 090: REM MUOVE BA A IN C 

7E3 t FK «-0THEN/40 

73e IFAC I > >CC K )THENl 1 10 

740 X= 1959 :T= 1376 

7S0 P 1 =J sp£=K+ 1 f0SC£=ftC 1 ) 

7SS £CP2)=A< I ): 1=1-1 sK=K+l 

773 GOSUB 1400 

720 08 SUB 1773 

736 IF KCN THEN390 

80S EO3UBI380 

310 ,iF K -0 THEN 1090 S REM MUOVE DA C IN A 

82© IF 1 =0THEN843 

830 IFCC K ) >A( I >THEN1 1 10 

840 X= 1376 : Y= 1350 

850 RI=K:P£=I+i !DSC£=C(K) 
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SSO f\\ PS>*C< K > : I = I + 1 !K=K-1 
870 GQSUB140G 
8S0 GGSUB1770 
830 GGTO330 

3G0 IF J = 0THEN1390 i REM MUOVE Dft B IN C 

310 IFK, =0THEN930 

9£0 IFB< J > >C< K ) THEN 1 ! 10 

330 X= 1983 * Y= 1976 

! 

340 F 1=J :P£=K+ 1 iDSC£=B( J ) 

350 Ci F2) =BÌ J ) : J=J- 1 ;K=K + 1 

363 GQSUB 1400 

970 60 SUB 1770 

930 IFK< N THEN390 

930 GOSUB1560 

100B IFK=0 THEN 1030 s REM MUOVE DA C IN 8 
1010 IFJ=0THEN103® 

1020 1F Ci K > >B< J > TRENI 110 

1030 X=197S : Y= 1363 

1040 P 1 =KiP2=J+l :DSC2=C< K> 

1050 E< P£)=C< K ) :K=K-1 s J=J + 1 
1060 GOSUB1400 
1070 3OSUB1770 
1880 GQTO390 

1030 PR INT"3" • PR I NT “MOSSA INESATTA, NON CI SONO DISCHI" 

1100 PR INT’’SCR IV I UNA NUOVA MOSSA AL=2 : DOTO400 
1110 PR INT"a u : PR I NT "NON HAI RISPETTATO LA REDOLA £"t 
PR INT*'UNA NUOVA MOSSA* 1 
1120 AL =2 : GOTO400 

1130 PR I NT “ a u SPRINT 11 ISTRUZ IONE 1 NESATTA," : PR I NT " 

UNA NUOVA MOSSA" i AL=£ : GOTO400 
1143 PR l NT "NUMERO DI DISCHI FUORI DAI LIMITI" 

1158 FRI NT " SCRIVI UN NUMERO TRA 2 E 7"!GOTO400 
1168 REM DISEGNA LA BASE 

1 170 POR I I = 1.TQ49 :PCKE 1333 + 1 3 , 102 : NEXT '■ P7= 1S5B 
USO GOTO 1220 

1130 FOR 11 = 1 T03 s READP3 ; PR INTPB ! F8=-P8+P7 

1200 FOR I 2=- 1 TO 1STEP2 ! P0KEP3+ 12,33 ; NEXT 

1210 POKEPS, I 1 s'NEXT! RESTORE ! DATA34 ,47,60 : RETURN 

1220 POKE 1SS3 ,33i POKE 1330, i spoKE 1931 ,93 

1230 POKE2002,3S: POKE2003,2i POKE2004,33 

1240 POKE20 15 ,93!POKEH0 16 ,3 1POKE20 17,93 

1250 RETURN 

1260 FOR I 1 =NTD25TEP- 1 ! S = 2 *11-1 
1278 C 1 =C-C N- Il ) *40*2! C 1=C 1 -40 

1 230 Vl=Cl-i G-l ),'2 i 

1230 FOKEV 1 ,73 • POKEV 1 +40 , 10 1 
,1300 FOR 12 = 1 70 G-2 
1310 POKE V 1 + 12,33 iNEXT 

1320 POKEV 1 -7 + 12,30 : POKEV 1 + 12+40 , 103: NEXT 
1330 V2=C-< N- I I >*40 
1340 POKEV2-N*40,79 
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1356 

P3K.EVe-N*40+4 0, 161 




1360 

PPKEV2-N+40+1 7 10 1 




1370 

POKEV2-N*40+4 1,101 




1350 

RETURN 




1333 

REM DISEGNA IL 01 SCO NELLA NUOVA POSIZIONE 




1400 

VI =X-46-80*< P 1 -1 > 




1410 

FORI 1=0 TO 1 E 




1420 

FGKEV1 + U ,96 




1430 

POKEV 1 + 11 +40,98 ! NEXT 




1440 

I FDSC2 = 1 THEN 1 520 




1450 

TI =Y~00*< P £ - 1 ) *80 - Tì “T 1 +40 




1460 

DSC6-1 )/£ 




1470 

T3=T1-T2:T4=T1+T2 




1430 

P0KET3 , 73 ! POKET3+40 , 10 1 




1490 

P0KET4 ,60 ! FGKET4 + 40 , 103 




150O 

FORI 1 = 1T0DSC2-2Ì P0KET3 + I 1 ,99!NEXT 




1510 

GOTO 1550 




15E0 

TI =Y- 40-80 *< P2- 1 > 




1530 

F0KET1 ,79 : POKET 1 + 1 , 10 1 




1540 

FOftETl +40 , 10 1 S POKET ì +4 1,101 




1550 

RETURN 




1530 

1FCNT1 >£+NTHEN 1720 s REM NUOVO GIOCO 




1570 

PRINT * aCQNGRfiTULftZ IONI!. ! 11 ! AM=0ÌJ PR INT" 




1580 

PR 1 NT " gaCONOR ATUL AZ IONI ! ! " 




1580 

FORH 1 * 1 T0£ 1 i NEXT 




1800 

IFAM9=20THEN1640 




IBIS 

PR TNT»f CONGRATULA? IONI ! ! " 




1 620 

AM=AM+ 1 : GOTO 1580 




1630 

PRlNT n a CQNGRATULAZ IONI ! ! " 




! 840 

PR 1NT'' 




1650 

PR I NT " HA I COLPITO IL BERSAGLIO!!" 




1860 

PR 1 NT : P R I NT ” VUOI GIOCARE ANCORA ? " ! PR INT ! RR INT" SCR IV I 

mm o ww." 


1 S70 

PRINT SPRINT" "SPRINT" 



11 

1630 

GETQS: IFQ* = " "THEN1630 




1630 

I F Q$ = " S " THEN260 




1706 

PR INT" .JBBUBt; I AQ 




1710 

END 




1 730 

PRINT"aHAI COMPLETATO IL GIOCO IN"CNT 2 - 1 "MOSSE " 




l 730 

FRI NT" 




1740 

PRINT" IL BERSAGLIO ERA "2tN- 1 "MOSSE ” 




1756 

GOTO 1660 




1760 

PR 1 NT 11 HBTBIBIiilBlBMifPEE R S A . " 




1770 

pkp =? tN - 1 : pr i nt “ aaDMomnnMnni 1 ' c NT i 




1730 

pr i NT ■ aMMMMaiIMMlil" ESP 




1790 

CNT 1 -CNT1 + 1 




1 SCO 

X FONTI > 1 THEN 1330 

j 




18 1G 

PR lMi~"^B^BIfWPg!ffia40SSE " 




1328 

POKCK04 4 (, 13 


* 


■ f i -i r- 

4 W4.I.- 

r?£TSJPN 




1S*0 

pr :> jT M a “ : rem 

36 

SPAZ I 


1850 

PRINT" REM 

38 

SPAZ I 
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isee 

PR I NT “ 

1870 

RETURN 

1880 

PRI NT 11 

1330 

P0KE13 

1900 

REM VI 

1910 

FF. I NT H 

1380 

PR INT 

1338 

N ’■ 4 ì C = 

134 0 

1330 

PRI NT 

5.330 

PR I NT " 

1970 

PR INT i 

1380 

FR I NT " 

PR INT! 

1330 

PR ÌNT: 

E08G 

FR 1 NT £ 

3310 

GO : US 1 

3338 

BETONI 

3030 

PR l NT 

ce 30 

COSMO 1 

•“f nt c r?- 

■ . V ■_! l. : 

PF IMTJ 

30G0 

PP I ' : T 11 

2378 

pr ìnt; 

3038 

PR 3 NT" 

8090 

PR I NT ' 

2100 

GOTQ^ s 

0110 

PR INT " 

2 I £0 

GOSUB 1 

ti k. ,■ 

FR INT" 


A. A TORRE DI HANOI'’! 


VI SONO 3 POSIZIONI! fi ,B & C" 

PR INT “ALLA PARTEN2fi C*E‘ UNA TORRE DI DISCHI": 

IN POSIZIONE fi" | | | 

PR I NT "LO SCOPO E' MUOVERE TUTTI I DISCHI NELLAPGS IZ IONE C" 
PR I NT "Vi SONO APPENA DUE REGOLE" 

PR INTTABv 33J "PREMI RETURN* 

EEGiGGSUDl ISO 
irc:-5= " "THENE020 

T " iJ” : GOSU52320 : GOSUB 1280 

- 


M 


Ì«“S 1 PUÒ 1 MUOVERE BOLO UN M * PR INT 
:EG . E«-UN DISCO BRANDE NON PUÒ 1 


DISCO fiLLfi VOLTA - ” 
STARE rJ 


E 1 * 0 

2153 

BIG? 
P 1 7S 
2 i 0? 

a tse 
2200 
Zie. ' Z 

I „ -W». w t . 

22-3 

£350 

S£BO 

££70 

££60 

££00 

2300 

£318 

£S£0 

£330 


SOPRA UNO PIU' PICCOLO" 

R I NTTAEK £ 3 > "PREMI iRE TURN! 
FO$= " "THEN 2 130 
1 ! 00 SUG 2320 • GOSUB 1 EB 6 


PRI NT "VECCHI fi POSIZIONE DEL DISCO SEOUITfì" 

PR I N“ " DALLA NUOVA " 

PP INT SPRINT "PER ESEMPIO, SE PREMI 3*11 DOPO «DB" 
^INT’UN DISCO SI MUOVE DALLA TORRE 3'i» ALL fi 
H- ISSO: Y- 1S63:P 1=4 iP£= 1 « D3C£=i 
FCR 11 = 1 T0650 : 2 =0 : NEXT 
“ORI 1 = 1 70300 : Z =0 1 1 lEliT 
PRINTIPR !NTTABy£3) "FREMI iS^ETURNB 1 ’ 

OETGT ! ! ~a$= " " THENÉ220 
CCS*. IBI 468 

CCTOS: IFQ^=" ‘THEM22'I0 

FRI NT "PUOI SCEGLIERE DA £ A 7 DISCHI." 

PR i NT SPRINT" IL BERSAGLIO E 1 IL NUMERO MINIMO DI" 
PR INT "MOSSE PER COMPLETARE IL GIOCO." 

POR 11 = 1 TO ISO ì Z =0 i NEXT 

PR INT! FR INTTABC 231 “PREMI RETORI'® " 

GETQ$ S IFG$= " “THEN2SOO 
RETURN 

FORNI =55230X038295 : PGKENI , 1 : NEXT 
RETURN 


READY. 
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C OMMODORE 64 & V IC 






:wawHKHiama 




Risoluzione 

di 

Triangoli 


I I programma calcola, conoscendo tre 
«tementi di un triangolo qualsiasi, gli altri 
tre elementi incogniti. Gli angoli vanno 
immessi in gradi, primi e secondi; anche i 
risultati vengono forniti nel sistema 
sessagesima)?. 



ti algoritmi utilizzati derivano dal 


teorema dei seni (linea 760) e dal teorema 


Il vw 


del coseno (linea 630), gli angoli imi 
in gradi - primi e secondi - vengono 


ventiti In radianti I linee 6 10-620 1 ed i 


valori calcolati degli angoli incogniti ven- 
gono fomiti dopo essere stati convertiti in 
gradi (linee 1380-1330 e linee 1000-1090). 


i 


1 programma gira anche sui Vìe con 
almeno 3k dì espansione. Per utilizzarla 


sul Vie senza espaasknn è necessario tra- 
scrivere solo le linee da 520 a 1470. Le 
linee fino a 510 contengono le istruzioni 
per 0 corretto uso del programma. 

Aldo Pagannone 

Via Perugia 9 
65100 Pescara 
Tel 085/31255 
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£50 

£60 

£70 

£80 

£90 

300 

3 10 
3£0 
330 
340 
350 
360 
370 
380 
390 
400 

4 10 
480 
430 
440 
450 
460 
470 
480 
490 
500 

5 10 
5£0 
530 
540 
550 
560 
570 
580 
530 
800 
610 
6E0 
630 
640 
650 
660 
870 
680 
690 
700 
7 10 
720 
730 
740 
750 


GETQ*: IFQ$= " "THENE50 

PRINT n yi VALORI DEI LATI SONO INDICATI CON" 

PR I NT " 0 A, B, C H M 

PR I NT " I VALORI DEGLI ANGOLI OPPOSTI A TALI LATI CON" 
PRINT'*tfFU ,B 1 ,Ctm* 

PR INTUBI VALORI DEGLI ANGOLI VANNO INTRODOTTI H 3 
PRI NT "SCRIVENDO I GRADI CON LA PARTE INTERA " ' 

FRI NT 41 DEL NUMERO, I PRIMI CON LE PRIME*; 

PRI NT" DUE CIFRE DOPO IL PUNTO, I SECOND I * ; 

PRI NT" CON LE ALTRE DUE CIFRE*" 

PR INT* SPREMERE UN TASTO PER CONTINUARE * 

GET Q$:IF * * THEN 360 
PRINTT - J" 

XV 
XfttV 




/ 


X 


e x 

/ 

x 


x 


x 


v 

v 

\ c N ' 
V 
V 
V 
V 

BIV 


PRI NT 11 
PR INT" 

PRINT" 

PR INT'* 

PR 1 NT * 

PR INT** 

PR 1 NT“ 

PR 1 NT m 
PR INT " 

FRI NT'*/ CI 

PR INT"" " ' “ 

PR INT H A" 

PR INT* MERE UN TASTO PER CONTINUARE 11 

GETQS: 1FG$=“ "TNEN5 10 

PRINT"^aa DATI CONOSCIUTI 

PR 1NT*M1 ) DUE LATI E L 1 ANGOLO COMPRESO" 

PRINT'Kj UN LATO E DUE ANGOLI" 

PR I NT * SJ3 7 TRE LATI - 

FRI NT" A4) DUE LATI E L É ANGOLO NON COMPRESO" 

FRI NT "SPREMERE IL NUMERO CORRISPONDENTE AL PROBLEMA SCELTO" 
INPUTN:QN N GGTO590 ,680 ,780 ,830 
PRINT*^MBtìSCRIVI I VALORI DI A,B,C1" 

I NAUTA, B, CI 

CP = C Ilsrr< CI *100 >X100-INTC Cl > ?X*6 tCS=*< C 1 *Ì00-INT( CI *100} 3/36 
Cl=< INTC C I >+CP+C5>*<rXI 80 
C5=At£+Bt£-£*A*B*C0S< Cl > S C=SQRC C5 ) 

CA Bt£+Ct£~At£)/< 2*B*C> 

A 1 = -ATN< CA X5QR< -CA*CA*I ?>+*/£ 

B I = if -A 1 -Cl 
GOTO 1£78 

PRI NT" LUCRIVI I VALORI DI A,B!,Cl lt 
IMPUTA, B 1 ,Cl 
I FB ! +C 1 >* 180 GOTO 1430 

CP=< INTC Cl* I00>/100“ INTt Cl ? >/.6 = CS=< C 1 * 1 00- INT< C i * 1 00 > > /36 
Cl=< !NT< Cl >+CP+CS>*vfX180 

BPM INTC B1*100)XI00-INT< Bi > >X*G IBS=< B J *100- I NT< BI*|00> )X36 
B 1 =< I NT< B t ) +BP +BS > * rfX 180 
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760 B=A*S IN< B 1 )/S I N( A 1 > * C=S INC C 1 )*A/SIN( Al ) 

770 GOTO 1870 

780 PRINT"iJ*SCRIVl I VALORI DI A,B,C 
790 INPUTA,B,C 

800, IF A>B+C OR B>A+C GOTO J430 
B 10 IF C>A+B OR A<ABS(B-C) GOTO 1430 
820 IF B< ftBS< fì t-C ) OR C<ABS(A-BJ GOTO 1430 
830 CA =<Bt2+Ct£-At2>/< 2*B*C> 

840 AÌ=-ATN(CA /SQR< -CA*CA+T >)+*/2 
850 CB =< At2+Cta-BtB)/C B*A*C} 

860 B1 = -ATN<CB /SGR< -CB*CB+1 >>+</2 
870 Cl=w-Al-BI 
880 GOTO 1270 

830 PR INT* LUCRIVI I VALORI DI A,B,A1 * 

900 INPUTA ,B ,A 1 

910 AP=< INT< Al*100>/100-INT< Al ) >/.6 i AS=< A 1 *100- 1NT< A 1 * 100 ) >736 

320 Al=< £NT< Al >+AP+AS>*ir/lB0 

930 SA=SIN< Al > iP=B*SA! IFA<PTHEN 1430 

840 SB =P/A : B 1 =ATNC SB/SQR< -SB*SB+ 1 > > 

950 Cl = i»-Ai -B1 :C=A*SIN< CI )/SA 
960 IFA>BTHEN1270 
870 B2 = it-Bl • C2= ti-B2-A 1 
380 C3=A*S IN< C2>/SA 

980 PR INT " LUI IL PROBLEMA AMMETTE DUE SOLUZIONI" 

1000 G 1 = A 1 * 180/rf • G£=G 1 - INT< Gl) *G3= INT< G2*60 1 

1010 G4=INT(< GB *60-G3> *60001/ 100 

1020 H1=B1*1B0/*!H2=H1-INT<H1 ) iH3= INT< H2*60 > 

1030 H4 a INT( C H2 *60 -H3> *6000 1/100 
1040 J 1 =C 1 * 1 80/<r ■ J2= J 1 - INT< J 1 > s J3= INT< J2*601 
1050 J 4 = I NT C < J2*S0-J3>*G000>/100 
' 1060 NI =Ba* 180/ *t * N2=N1 - INT< Nt>ìN3 = INT< N2*60> 

1070 N4=INT< < N2* 60 -N3 1*6800 1/1 00 

1080 MI =C2* 180/ * • M2=M 1 - INT< M t > : M3= INTt M2*60 1 

1090 M4 = INT< ( M2*60-M3> *60001/100 

1100 PRINT'M-ATO A="1A 

1110 PR I NT “LATO B=“IB 

1120 PRINT"LATO C = VC 

1 130 PRINT"*ANG.A1-"1 INT< Gl >1 * ■*iG3; * ’ " J G4 
1 140 PR I NT " M4NG .81**1 £NT< HI >1 * •*lH3J “ ' *';H4 
1150 PR I NT " BANG , C 1 = “ ? 1NT< J1 >; “ **1 J31 » 1 "? J4 
1160 PR I NT " MSFER LE ALTRE SOLUZIONI PREMI UN TASTO" 

1170 GET X*t IFX*=" "THEN1 170 
1180 PR I NT" BINATO A=‘1A 
1130 PR INT "LATO B»"JB 
1200 PR INT“LATO C= "1C3 

1210 PRINT“MANG.A1«“MNT< Gl 11 * ■MB31* ' "1G4 
1220 PRINT"ANG.B1 = "1 INT< NI >1 * ■■1N31 " ‘ "1 N4 
1230 PR INT* ANG , C 1 = *1 INT< MI 1 J “ *“ 1 M3) * ' * I M4 
1240 GOTO 1400 

1250 PR INT* JKHMJ L PROBLEMA dNONB HA SOLUZIONE’ 

1260 GOTO 1400 
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1270 PR INT*a»?ISOLUZ IONE DEL TRIANGOLO” 

1230 G1*=A 1 *100/(f :G2=G1-INT< G 1 > :G3= INT< G2*60 > 

1230 G4=INTCt 62*60-G3 > *6000 >^100 

1300 H1=B 1*180/* :H2=H1 - INT< HI > !H3=INT< H2*G0 > 

1310 H4= INTC < H2*B0-H3 >*B000)/I00 

1320 J1*C1*180/*: J23J1-INTC J1 >«J3*INT< J2*00> 

1330 J4«INTC C J2*60-J3> *60001/100 
1340 PR INT"M-.ATQ A="JA 
1350 PRlNT"LATO B=*“JB 
1360 PRINT*LATO C = *1C 

1370 PRlNT"WìNG. Al = " J INT< Gl )! “ ■* I G3? * • "IG4 
1330 PR I NT * ANG . B 1 = 1 tNKHDJ " ■“1H3J ” 1 *1H4 
1390 PR I NT "ANG . D 1 = 11 * INT< J1 ); " •“! J3f “ ’ "1J4 
1400 PRINT-MB3E VUOI CONTINUARE PREMI UN TASTO " 
1410 GET Q*i IFQ*=" "TAEN14 10 
1420 0OTO520 

1430 PRINT'J CON QUESTI DATI IL TRIANGOLO NON SI*J 
1440 PRINT* PUÒ 1 COSTRUIRE." 

1450 PRINT"*HB*B»MBILJN TASTO PER CONTINUARE* 

14S0 GET Q*s 1F Q*=** THEN 1460 
1470 GOTO 520 


READY. 
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COMPUTER 





NÒ 8 - Iìrijooo 


Ìr'NEWSMAGA2ÌNE"dtirÌNf0RMATÌCA 


Unix, la terra 


promessa 


L’erede 
di Pascal 


Il futuro 
in un d sisco 


Verso 
la fabbrica 
robotizzata 


Microprocessori, 


otto grandi 


a confronto 



Vie 20 Inespanso . 





I programma, a causa della mode- 
sta quantità di memoria a disposizio- 
ne, non possiede un controllo per ve- 
rificare se una casella è stata in pre- 
cedenza indicata. Viceversa «crede» 
di vincere quando le risposte - A - (af- 
fondata) raggiunge IL valore di 10 
unità. Una lieve modifica è stata ap- 
portata e consiste nel fatto che dopo 
Ogni mossa del computer, è necessa- 
rio premere la barra spaziatrice per 
proseguire. Per giocarlo, a parte (su 


un foglio di carta), disegnate un qua- 
drato dì 15x15 con numeri verticali e 
lettere orizzontali (alfabeto inglese). 
Posizionate (orizz, e vert.) 1 nave da 
4 caselle, 2 da 3, 3 da 2 e 4 da I. Le 
navi non devono avere contatti, nem- 
meno per gli spigoli. 


la croce per aver mancato il bersaglio 
ed un quadratino bianco per un cen- 
tro, il tutto con dei piccoli suoni. 
Quando la neve è colpita per intero, 
scrive « Affondata 


A 


A, 


Ila domanda «Coordinate? » ri- 
spondete con un numero, una virgo- 
la ed una lettera. Esempio: 3,B; 
14,0; 7,K. Il Vie stampa sul quadro 


Ila domanda «Io sparo (coord.) 
cosa rispondi?» battere: 

A per affondata - V per vuoto 
C per colpita R per rinuncia, 

C. Puntelli 

PJe Carroccio, 10 - 20025 Legnano MI 


100 


i 10 
180 
ISO 
130 
15C3 
ISZ 
170 
180 
133 
800 

810 


REM VIC 20 1 NESPANS 0 
REM BATTAGLIA NAVALE 
REM G . PUR ICELL I 
REM PLE CARROCCIO 10 
REM £3325 LEGNANO MI 


PR ÌWT" Li" I Li IMM 19 ) ,B< S > 

P0KE5E ,28 ! PGKE56 ,28 

FOR I -GT0S'-PEA08< I ) : NEXT 

DATA-E3, -22 , -£ 1,-1 ,0,1 ,21 ,22,23 

F0KE3G37 3 ,27tFORC = 0TOl i iì rGRCC=0TG38BSTEP2£ 

POKE? 1 37 -i-C+CC, 32s NEXT i NEXT 

0=31 G0SUB3S0 
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Computer questo mese é questo 


iti 






100 software 
per progettare 



■ 


Le periferiche grafiche di package 
per progettare col computer 



i é \àff 












m 

. 

. 
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E£0 

FOR I -0TG3*VSTEPV: ft< I/V>=6+ 1 ! P0KE7727+B+ I ,61 :NEXT 



230 

FORCATO 1 



£40 

□-£: GGSUB36S 



250 

PDF I = (5TO£*VSTEPVs FK I/V+A+ 4 > ^B + I E P0KE77E7 +E * I ,8 1 s NEXT 



2G0 

A*3*NE«T 



270 




£80 

FORC=0TQ2 



£30 

0^1= GQSUB380 



300 

FOR I =0T3 1 *VSTEFV: fì< I/V+A+ 10 ) =B+ 1 :FGKE77£7 +8 + 1,81 JNEXT 



3Ì0 

ft^Ft+2 : ISCXT 



323 

F0RC=0TÒ3 



330 

D-0SGOSUB360 



340 

C+16 > =BiP0KE77£7+B,81 SNEXT 



350 

6070430 



380 

X*3NT< RND< 0)*15 > + HY=INTC RNDC 0 ) * 1 5 > i V = 1 * 1FRNQC 0 > > * STHENV “££ 


370 

IFX*D > 15QRY+D > 14THEN3G0 



380 

B-X+ Y*££ i IFD=3THENRETURN 



Z3Z 

FORE =0T03 2 FQRF=0TOO*VSTEFV 



400 

FFPEEK? 7727+B+F +B< E ) > -8 1THEN360 



4 10 

NEXT «NEXT 



4£0 

RETURN 



430 

FP IHT" J" : P0KE36873 ,53 : FGRC*0TQ505 ' POKE38400+C , 6 s NEXT 



440 

FORC=4TO 16 t FORCC *0TD303STEP£2 : P0KE77E4 +C +CC , £50 : NEXT : 

Ì4EXT 


450 

PR t NTTfiBC 4 > "fìBCOEFGH I JKLMNO " 



4se 

FORCATO 15 i PR INT " H"C s NEXT 



470 

PR INT i PR I NT 



*80 

PRINT"QI* E LETT. DEL QUBDRQtX 


r 

493 

IPpEEKt 137 I =B4THEN490 



560 

t NP UT "COORDINATE ■■■■■■■■■■■! " 1 P ,P« 



SIC 

IFF’< 1QRP > 15QRASC< P* K GSORPSCX P*> >78THEN430 



520 

P0KE.3687S , 1 0 : P0KE3S377 , £53 : L=33C< P*> -84 +< P-l >*££ 



1 533 

Ll=fìSC<: P$ > -65 s L£=( P-l ) *££ 



540 

FOPc=OTOL 1 s P0KE3S448+LE +Z ,£:NEXT 



550 

FORT =0TOL£STEP££ ! P0KE38448+L 1 +2 ,£ : NEXT 



580 

FORZ = 1 TO230 : NEXT 



570 

FQB3=0TOL1 :P0KE38448+L2+Z,6!NEXT 



530 

FDRZ =0TOL£5TEP2£ s PQKE33448 +L 1+Z ,6: NEXT s F0KE36877 ,0 



530 

FOR 3 =0TO 19 



B0B 

IFBC I >“LTHEN640 



610 

NEXT 



S^B 

FORZ =£20T0 163STEP- 1 s P0KE36876 ,Z 1 NEXT : POKE3SS76 ,0 



630 

PGKE77S7+L ,88 : GOTG800 



640 

FORZ = ] TC100 SP0KE36S77 , 154 : NEXT: PQKE38378 ,0 



650 

I >*0iFOKE77£7+L^3£ 



660 

IFI >3THEN630 



670 

=Fil + 1 i IF31-4THEN7S3- 



G20 

■30T0730 



S30 

1F I ;STHEN7£B 



700 

3 1 1 +1 i IFG 1 =3THEN75B 



710 

COTC7S0 



' 'TCP 1 
: v- t- r 

jyORK*10TQÌ9 
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qpmfnoditJ*-* 

COMPUTER 

“CLUB™ 


PRESENTA 






T33 

74 0 


!PA< K >--L K>=L*10RA< K)=L 2E0RAC K } “L+2ETHEN780 

NEXT 


750 Nft-Nft+1 

760 fi 1 =0 SPRINT" ISAFFCNDfiTAlir 
77 S I F NA = 3 0TNEN7S0 
730 GOTOttSO 

730 P>HNT"»HRI VINTO TULT :FCRTT-0TG 1 BOSS NEXT: GOTO li 70 
SG3 IFPEEKX 137>=e4THENBC0 
cS5 ONTGOTO3E0 ,340 , 350 , 360 
B I 8 ONSGOTO3EO,340 ,330,360 
320 Y =- 1 N7V < RND< 0 > iKE9 + 1 ) SS. > 

633 FORM» IMT< < RND( 0 > *£3+1 >72 ITO 14 
B40 F“7 197+X+Y*2£ 

I FPEEK< R ) =3£THENS80 
£t>3 NEXT 
S73 GoToeee 
830 PGRU«0TO8 

£30 IFPEEK< R+B( U > >=8 1THE14S20 
303 NEXT 
313 G0T0336 

320 M=M+ 1 ;N=0s T= 1 :S=3: IFMMTHEN5=£ 

330 G0TG370 

940 MpM- 1 i N=0 * T=g s S* 1 s GOTO 9 70 
350 N=N- 1 : M*0 ì T= 3 i 3 '-4 J GQ 70370 
360 N=N+1 i M=0i T=4 :S=£ ! IFN>1THENS=3 

373 IFX *M> 140RX+FK 0ORY+N> 140RYHK 0THENM-0 : N=0 : GOTOS 10 
SSO IFPEEK< R+M+N*£2K >3£THEMM=0 :N=0-GOTO810 

390 PR 1 NT '‘DÌO SPARO " ; ,, iEÌl*MI”V+ 1 +N; CHRS( X f65+M> 

1000 INPUT “BTPS A RISPONDI !■■!' ! SS 

1013 fFS$= " V " TH2NPQKER +M+N*22 , 1 66 : T =0 s M=3 ì N=0 ‘ GOTO 1 100 

1320 IFSX= ”C '‘THENPDKER-*M*N*2E,8Ì iGOTO 1056 

1033 IFS*= "ft''TH£NPOKER+M+N*2E ,81 iGOTO 1070 

1040 IFS*=™R"THENÌ 110 

1050 IFTC ; ETHEM1 10B 

1660 T = IHT< 6 >#4>+ l i GOTO 1 3 00 

1*7® V 1 =V I + 1 

0330 ÌFVI» 3 3THENPR INT'tlXEEI MOLTO BRAVO,. MA... BUG V1NTG IO 
1030 T=0 : S=0 !M=0 iN=0 

1100 PR INT"D fTTl " * GQTQ533 

1110 FOR I =0TOS 500 INEXT ipRINT "CIXECCO LE NAVI RIMASTE! BT 
1 120 FORAA=0TC 13 
1 130 IFA< AA> = OTHÉNl 150 

1 140 P0KE77E7~A( AA> ,3 1 : P0KE38447+A< AA> ,2 
1 156 JFftfì= ISTHEN1 ITO 
1 iSG NEXT 

MITO PR I NT “ VUO I GIOCARE ANCORA?” 

1180 GETA»! IFA*=”‘THEN1 180 
S 1 SO IFA*=*S*THENPRINT" J" SG0T0E30 
! 200 PR ! NT " UC I AG • : END 

READ'*'. 


" : GOTO 1 1 10 


ri- 
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Ogni giorno in Europa si apre un nuovo computer shop. 

Un pubblico sempre più numeroso è attirato verso il person 
e si rivolge ai negozi specializzati per trovare la sua marca 
preferita. || i 

Tu che hai capito qual è il futuro dei computer e hai deciso 
di aprire un negozio, JjK 

cerchi un nome che dia prestigio 1 . 

e una organizzazione che I ’l i * J 

non ponga vincoli ma offra ¥ k 1 

vantaggi concreti. 

Computer ia vuol dire negozi 
di computer fin dal 1 979. 

Computeria e anche una 
organizzazione che ha avviato 
rapporti di collaborazione 
con tutti i principali fornitori, 
perciò i suoi affiliati possono 
scegliere e vendere le marche 
più prestigiose e richieste. 

E inoltre Computeria ti dà un prezioso 
know-how, una ricchissima dotazione di 
programmi, supersconti esclusivi, 
vantaggi economici sul leasing. 

E tanta pubblicità. 

Se vuoi essere libero di scegliere quello che 
vuoi vendere nel tuo negozio, . . -, 

l’organizzazione Computeria 
è la tua scelta obbligata. * 
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IL LIST COME 
LO FACCIAMO 
NOI 


STAMPA 

FATTURA 


TITOLATRICE 


RISOLUZIONE 
DI EQUAZIONI 










r/v 




I» 










FINALMENTE. 

LA TAVOLETTA GRAFICA A PIENE PRESTAZIONI 
AD UN PREZZO ACCESSIBILE A TUTTI 


I I 





La tavoletta grafica KOALA è la più simpatica innovazione nel campo dei personal 
computers. Con KOALA, controllate il vostro computer con un dito, riù veloce 

di un paddle, più versatile di un joystick e più 
semplice dì una tastiera. 

La tavoletta grafica KOALA è compatibile 
con la maggior parte di software esistente 
e viene fornita compieta 
del suo programma 
grafico "Micro lllustrator". 

KOALA-PAD è il miglior 


* INI 1 1; M TJ Ai IO ni A L 


T# r i 


modo per creare 
immagini ad alta 
risoluzione con il vostro 
computer. 


COMPUTER GRAPHICS DIVtSION 

MILANO: Via L. da Vinci. 43 20090 Tremano S/N 
Tel 02/4455741/2/3/4/5 • T!* ; TELINT 1 312827 

ROMA: Via Salai a, 1319 - 00-38 Roma 

Tel 06/691 7D58-69193’ 2 -TI*:TINTRC 161 4381 




